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1. ABSTRACT 

The TC02 Basic Exerciser is a series of test programs that may be used to gain 
a high degree of confidence in the data handling ability of a TC02 DECtape 
control and any configuration of 1 to 8 TU55 DECtape transports . 

The Basic Exerciser consists of several basic routines that may be individually 
selected. Each routine, with the exception of the instruction test, will operate 
on either any drive or any configuration of 1 to 8 drives. 

The Scope Loops will operate on any drive, but only use the lowest drive selected 
or Drive 8 if it is selected. 

These routines include: 

Basic Motion or Move Scope Loop 

Search Scope Loop 

Read Data Scope Loop 

Write Data Scope Loop 

Search Find All Blocks Test 

Basic Write/Read Data Test 

Parity Generation and Checking Test 

Search Routine 2 (Read 256 Block Numbers and Compare or Print) 

Start/Stop/Tumaround Test 

2. REQUIREMENTS 

2.1 Equipment 

PDP-15 (Standard) 

TC02 DECtape Control 

1 to 8 TU55 DECtape Transports 

API (Optional) 



2.2 Storage 



Basic Exerciser - Part 1 occupies most of memory from address 0000 to 4700 and 
utilizes three buffer areas as follows: 

Address Function 



06400 to 06777 Output Buffer Area 

07000 to 07377 Input Buffer 1 

07400 to 0777 Input Buffer 2 

Note: Buffer addresses are relative to the extend memory 
bank specified for data break . 



2.3 Preliminary Programs 

None 

3. LOADING PROCEDURE 

Place the ABS Binary tape in the Paper Tape Reader (high speed, if available). 
Set the ADDRESS switches to 17700. 
Set BANK MODE switch to 1 . 
Depress I/O RESET 
Press READ IN 

4. STARTING PROCEDURE 



4.1 Control Switch Settings 

Any configuration of 1 to 8 drives may be selected in SWITCH REGISTER Bits to 7. 
Each bit is a master bit for selection of a drive. When the switch is a 1, the drive 
is selected; when a 0, the drive is not selected. 

Switch Drive 

8 

1 1 

2 2 
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4.1 Control Switch Settings 

Switch Drive 

3 ~T~ 

4 4 

5 5 

6 6 

7 7 



AC switch 12 = indicates do not utilize API 
AC switch 12 = 1 indicates utilize API 



Ohe particular routine to be used is selected by placing the nui±)er 
of the routine in SWITCH RECISTEIR bits 14 to 17 . 





SWS 


14 to 17 


Routine 


Read 


Paragraph 











Move sccpe Torp 
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Search Sccpe Loop 
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Bead Data Scope Loop 
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Write Data Sccpe Loop 
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Search Find All Blocks 
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Write/Read Data Test 




7.6 
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6 
7 
10 


Parity Generation Ttest 
Basic Search Routine 2 
Start/Stcp/Tumaround Ttest 




7.7 
7.8 
7.9 






4.2 


starting Addxess 














the Basic Exerciser starts at address 200. 











4.3 Progran and/ar Operator Action 

a. Set the AMDRESS SWITOHES to 0200. 

b. Set the SWITCH FBGISTER to: 

(1) Select drives. (SWO to SW7 = is invalid) 

Master bit selection in switches to 7 per paragr^ii 4.1. 

(2) Select Test Rxitine to be run. Place the test nvmtoer to be run 
in svidtciies 14 throu^ 17 per paragraph 4.1. (Also, read the test 
roitine description if you haven't alroady dene so.) 

(3) Select API option. 

Switch 12=0 NO API Switch 12=1 API 

c. Press I/O RESEir. 

d. Press START. 

e. The processor halts at address 240. 

f . Beset the SWITCH REX3ISTER ro 000000 or as desired for the particular test 
and per paragraphs 5.1, 5.1.1, and 5.1.2. 

g. Press OCWTINUE. 
5.. OPERATING PROCEDURE 

5.1 Operational Switch Setting (Standard) 

SWO - 1 is delete all typeouts 

SWl = 1 is delete error halts 

SW2 = 1 is tyge only first 4 Data Coipare errors 

SW3,4, and 5 indicate the ejctended memcjry bank to use for data breaks in 
routines 1, 2, 3, and 5. 

Read each of the individual test descriptions to determineidf any other switch 
settings ^iply to that particular routine. 
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5.1.1 



Test Routines ond Appli coble RUN Switches 

Test Routine Switches 

MOVE SCOPE LOOP SWO to SW17 = 

SWO to SW17 ^ 



1 SEARCH SCOPE LOOP Switches 3 and 4 



Switches 5 to 17 
= 

Switches 5 to 17 

k 



2 READ SCOPE LOOP Switches 3 and 4 



3 WRITE SCOPE LOOP Switches 3 and 4 



Switches 15 to 17 



4 SEARCH FIND ALL 
BLOCKS 



5 WRITE/READ DATA 
TEST 



Switch = 1 
Switch 1 = 1 
Switch = 1 
Switch 1 = 1 
Switch 2 = 1 
Switches 3 and 4 



Usage 

Change direction at end zones 

Move tape in current direction 
either until end zone or for 
approximately 18 ms for each 
switch increment - change 
direction at end zones or when 
switches = increment count. 

Select memory bank for search 
data break. 

Turn around at end zones. 



Move tape in current direction 
unti I end zone or for 36 ms for 
each increment of switches turn 
around at end zone or when 
switches = increment count . 

Specify memory bank for READ DATA 
data breaks. 

Specify memory bank for WRITE DATA 
data breaks . 

Select data pattern to 7. (See 
paragraph 5.1.2.) 

Delete all typeouts. 

Delete error halts. 

Delete all typeouts. 

Delete error halts. 

Only type first 4 data errors. 

Select memory bank for data 
breaks . 



5.1.1 Test Routines and Applicable RUN Switches Cont. 



Test Routine 

5 WRHE/READ DATA 
TEST (Cont.) 



Switches 
Switch 8 = 1 



Switch 9 

Switch 10 = 
Switch 10 = 1 

Switch 11=1 



Switch 12 = 1 



Switch 13 = 1 



Switch 14 = 1 



Usage 

Halt at end of WRTFE pass or at 
end of READ pass. (Could be 
used for Data Compatabiiity - 
Rotate reels of tape at HALT - 
Press CONTINUE). 

Ignore PARITY, DATA and WC 
ERRORS . (To be used as an aid 
to scoping.) 

Take next pattern to be exercised 
from SWS 15, 16, 17. 

Exercise patterns sequentially 
(after last block on tape has been 
written backwards). 

Read Data only. (SW11 overrides 
SW12) (Can also be used with 
switch 8 for Data Compatiblity 
to make sure each reel is readable 
on all drives.) 



Write Data only. 
SWll.) 



(Overridden by 



Exercise WRITE/READ SEQUENCE 1 
block at a time. (If DEC tape 
will run error-free in the 1 BLOCK 
MODE but not 16 BLOCKS or 
length of tape MODES the problem 
would appear to be in synchronizing 
between blocks in write or read data) 
(SW13 overrides SW14.) 

Exercise WRITE/READ SEQUENCE 
16 blocks at a time. (Overridden 
by SW13 = 1.) 
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5.1.1 



lest Routines and Applicoble RUN Switches Cont. 



Test Routine 



6 PARITY TEST 



7 BASIC SEARCH 



10 START STOP 
TURNAROUND 



Switches 

Switches 13 & 14 
= 



Usage 

Exercise WRITE/READ SEQUENCE 
length of tape . 



Switches 15, 16, & Select DATA PATTERNS to 7. 
17 (See paragraph 5.1.2.) 



Switch = 1 
Switch 1 = 1 
Switch 8 = 1 



Switch 12 = 1 
NONE 

Switch = I 
Switch 1 = 1 
Switch 12 = 1 



Delete all typeouts. 

Delete error halts. 

Halt at end of each step (1 to 6) 
in the Parity Test. 

a. Could be used to prepare tapes 
so that all reverse checksums are 
in a known state (00) for some 
other test routine. (Start parity 
test with SW8 = 1 when HALT is 
executed al I reverse checksums 

= 00.) 

b. Could be used in conjunction 
with SW12 for a drive compatibility 
test. 

Repeat Current Parity Test Pass. 

Switch will still delete all 

typeouts, but the only reason to 

run this routine is to get the typeouts. 

Delete all typeouts. 

Delete error halts. 

Repeat START FORWARD/STOP twice. 
(Only exercise every 6th block the 
length of tape.) 
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5.1.2 Pattern Selection Switches 15, 16, ond 17 

Data patterns for the Write Data Scope Loop and Write/Read Data Tests ore 
selectable via AC Switches 15, 16, and 17. The patterns that may be selected 
are as follows: 



Pattern 



Description 



3 
4 
5 
6 

7 



All zeros pattern. (All ones when read in 
direction opposite written .) 

All ones pattern. (All zeros when read in 
direction opposite written.) 

A word of zeros followed by a word of ones 
f ol lowed by a word of zeros . 

Words of 252525. 

Words of 525252. 

Words of 070707. 

Words of 707070. 

Words of 252525 alternate with 525252. 
The first word out is 252525 and the bst word 
is 525252. When read in the direction opposite 
written, the first word is 525252. 



5.2 



Subroutine Aspects 



5.2.1 



Search Subroutine 



The search subroutine is a common subroutine used by several of the test routines 
and operates in the following manner: 

o. Symbolic location RECORD (address 0641) contains the block number that the 
test routine wants the search subroutine to find. 

b. Symbolic location DIRFLG (address 0640) indicates the direction that the 
block should be found in. If the contents of DIRFLG is all zeros, the block 
should be found in the forward direction. If the contents of DIRFLG is oil 
ones the block will be found in the backward direction. 
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5.2.1 Search Subroutine Cont. 

c. The search subroutine always starts its initial search in the direction opposite 
the direction indicated by DIRFLG (i .e., DIRFLG = for forward, start 
search backward). Therefore, this search subroutine will always make one 
turn around before finding the block. 

d. Turnaround is not made until the tape is at least two block numbers post the 
block wanted (i .e;, block wanted forward is 0005 - turnaround is made at 
block 0003 going backwards) . 

5.3 Progrom and/or Operator Ac tion 

This series of routines is designed for initial checkout of a TC02 DECtape Control 
and its associated drives, or maintenance and repair of the control and drives 
after installation. 

The following procedure could be used for initial checkout of the control and drives 
and can be followed to repair malfunctions once the control and drives have been 
operating . 



5.3.1 Operation Check 

The first routine utilized is the TC02 Instruction Test (in Part 2). It is used to 
verify control operations (see Part 2 for operating instructions). 

Upon completing the TC02 Instruction Test (Part 2), read in Part 1 (this port) and 
proceed per procedure given below: 

5.3.1.1 Tape Motion and Timing Pulse Generation 

Put one drive on line and start the Basic Motion Routine with that drive SWITCH 
REGISTER selected. 

Set the ADDRESS switches to 000200. 

Put a DECtape on the drive to be run with the tape positioned close to the front 
of tape (i.e., with approximately ten feet of tape on the right-hand reel). 

Set the AC switch corresponding to the drive selected to 1, and all other switches to 
0. 

Press I/O RESET. 



5.3.1.1 Tape Motion ond Timing Pulse Generotion Coht. 

Press START. 

The program will record in memory the drive and routine selection and HALT 
at address 000240. 

Set all AC switches to 0. 

Press CONTINUE. 

The tape on the selected drive should start moving forward (off the left-hand 
reel and onto the right-hand reel). A select error should not be generated and bit 
4 of status A should remain 1 unless end zone is reached and detected. CO 
to C2 shoold appear to be counting, indicating timing pulse generation; US 
(up to speed) should set to 1 within a short period after tope starts moving . The 
DTF should not set. 

Now press STOP. 

Fonvard tope motion on the selected drive should be set and the right-hand reel 
should be free with a small amount of torque holding the tape tight. 

Now, set the AC switches to OOOlOOOs- 

Press CONTINUE. 

The tape on the selected drive should start moving forward again and after a 
short period of time, the tape on the selected drive should start moving back- 
wards (off the right-hand reel and onto the left). Status A bit 3 should be 1 
(BKWD). All other indicator observations for forward should be true. 

Now press STOP again. 

Backward tape motion should stop. Bit 3 of status A should remain 1 and bit 4 
should go to 0. The right-hand drive brake should be set and the left-hand 
reel should be free with only enough torque to hold the tape tight. 

5.3.1.2 New U+M Delay 



The new unit and motion delay can be generated by any one of several short 
progr«ns, but its operation must be monitored with an oscilloscope. Since the 
delay time could change at a later date (for some currently unknown reason), 
the time will not be mentioned here; but it can be determined from the TC02 
logic diagrams. An example of a program that could be used is: 
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5.3.1.2 NewU+M Delay Cont. 



Manually move the tape until approximately an even amount of tape is 
on both reels. 

Start the Basic Motion Routine (Test Routine 0) as described in Paragraph 
5.3.1.1. 

Instead of setting all AC switches to at the first HALT, set the switches to 
000208 . 

Press CONTINUE. 

The tape will rock from FWD, BKWD, FWC, etc. 

Every time tape direction changes, the NEW U + M Delay should fire. 



5.3.1.3 END ZONE Detection 

The tape motion portion of the TC02 instruction test (Part 2) verifies that END 
ZONE is detected and that END generates ERR STOP and clears MOTION 
(status A, bit 4) and the BMR 1 (Buffered Motion Bit 1). 

The program can be used to determine if the end zone is being detected by 
starting the program and watching whether or not the tape runs off the reel . 
Also watch the end bit in the error status. If the END indicator lights and the tape 
does not stop, error stop in the control is not being generated and possibly END 
status does not read to the AC on a DTRB. In either case, return the tape to 
the reel a short distance from the start of the reel (less than 10 feet of tape 
on right-hand reel) and use the Basic Motion program to scope the END ZONE 
detection by setting the AC switches to 00020 to rock tape in the END ZONE 
area. 



5.3.2 Search Operotions 

For the next sequence of operations, any of the three search routines could be 
used; but the Search Scope Loop (Test Routine 1) is the most practical and least 
complicated. When the routine is initiated, the tape starts forward until the 
END ZONE is detected and then runs backward until END ZONE is again 
detected and then forward again . 

If the tape runs off the reel, either the END ZONE was not detected or bit 2 
of status B (END) did not read to the processor accumulator during a Read 
Status B lOT. As the tape is moving forward, make the following observations: 

CO to C2 should appear to be incrementing, indicating timing pulses are 
being generated. 



5.3.2 Seorch Operations Cont . 



US (up to speed) should indicate 1 shortly after the tape storts moving and 
should stay on. 

The STATE REGISTER should circulate and appear to remain mainly in 
state data. 

The DECtape flag indicator should glow visibly, dim, and glow again as 
the tape moves forward (the program does not monitor DTF but simply 
waits in an ISZ loop and periodically monitors END and MOTION). 

No error status should be generated except END ZONE. 

The processor accumulator should appear to be incrementing by 1 as 
each successive block rtumber is read from tape and displayed. 

The timing in the control should be monitored with an oscilloscope with 
reference to the DECtape TC02 timing diagrams. 

With the DECtape searching backward, the same observations may be made 
as forward except the processor accumulator should appear to decrement. 

5.3.3 Correct Block Number 

At this point it is suggested that the Search Find All Blocks Routine (Test Routine 4) 
be used to prove that the control will correctly read block numbers. The Basic 
Search Routine (Test Routine 7) may be used to gain more information if Routine 1 
will not run without error typeouts. 

5.3.4 Check Reod Data Timing 

The next step should be to verify the Read Data Timing with an oscilloscope 
utilizing the Read Scope Loop (Test Routine 2) and the TC02 timing diagrams. 
Also, the TC02 instruction test (part 2) checks the Read Data Timing, that data 
breaks occur at the right times and the DECtape flag sets at State check going 
to 0. 
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5.3,5 Check Write Dato Timing 

Next, the Write Scope Loop (Test Routine 3) may be run and the Write Data 
Timing verified . This routine changes to Search Between Bloclcs as an effort 
to l<eep from writing over block numbers. (Recheck the tape with Routines 
4 or 7 to verify this.) Also, the TC02 instruction test times Write Data data 
breaks to insure that they occur within the data area of tape and that the 
DECtapeflag sets at the point State Check goes to 0. 



5.3.6 VisuQJ Check of Data Buffer, RWB, and LPB Utilizing the Write Scope Loop 

The different data patterns may be utilized visually as follows, W (WREN) 
should indicate 1 for all patterns). 



Pattern Data Buffer bit indicators 6, 7, and 8 and 12, 13, and 14 

(all Os) should glow dimly and the rest of the Data Buffer should 

appear to be Os . 

RWB bits 3, 4, and 5 should appear to remain Os. 

RWB bits 0, 1, and 2 should be complementing and should 
glow fairly brightly but not solidly. 

The LPB should complement every six bits and will glow dimly. 



Pattern 1 Data Buffer bits 6, 7, and 8 and 12, 13, and 14 should glow 

(all Is) dimly and the rest of the Data Buffer should appear to be 

steady Is. 

RWB bits 3, 4, and 5 should appear to remain steady Is; 
bits 0, 1, and 2 should complement and glow fairly brightly 
but not solidly. 

The LPB contents are not predictable but the rate of change should 
be fairly slow and discernible. (The LPB only complements on 
Os and will contain the complement of the reverse checksum 
of the block it is passing over.) 
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5.3.6 Visual Check of Data Buffer, RWB, and LPB Utilizing the Write Scope Loop Con t. 

Pattern 2 All bits in the Data Buffer, RWB and LPB should glow dimly, 

(alternate words 
of Os and Is) 



Pattern 3 The even numbered bits of the buffers should act as o pattern 

(252525) and the odd numbered bits as pattern 1 . 



Pattern 4 
(525252) 



The even numbered bits of the buffers should act as pattern 1 
and the odd numbered bits as pattern 0. 



Pattern 5 The right-most three bits (of each six bits) should appear as 

(070707) pattern 1 and the left-most as pattern 0. 



Pattern 6 The left-most three bits (of each six bits) should oppear as 

(707070) pattern 1 and the right-most as pattern . 



Pattern 7 Should appear as pattern 2. No steady states discernible in 

(252525 the buffers, 

alternate with 
525252) 



5.3.7 Prepare Tope for Reod 

The Write Scope Loop may now be used to prepare a tape for the Read Scope Loop 
and for a further visual verification. Patterns 3, 4, 5, and 6 appearing in 
the BUFFER(s) indicators should read the same in either direction. 

Note that the DATA BUFFER bits 6, 7, 8, and 12, 13, and 14 appear to be in a 
steady state and not to complement. Patterns and 1 should be complemented 
when read in the direction opposite that in which they were written. No steady 
states should be discernible with patterns 2 and 7. 

5.3.8 Check Correct Data 

Run the Write/Read Data Test (Test Routine 5) to verify that data is correctly 
read and written. Utilize the different switch configurations for a complete 
test or scope loop that reads or writes. This routine does not change to search 
between blocks, thus the possibility that block numbers may be written over is 
greater than that of the Write Data Scope Loop. 
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5.3,9 Check Checksum Generation 

The Parity Generation Test (Test Routine 6) verifies thot checksums are being 
generated properly and that partly errors will be detected if they occur. 



5.3.10 Check Turnaround Function 

Run the Start/Stop/Turnaround Test (Test Routine 10). All of the other routines 
are designed to eliminate the possibility of a turnaround error, but this routine 
tests this function to a much tighter limit. 



5.3.11 Check API Option 

Run test routine "API Test" (Part 2) to verify that the API works in a static 
condition. Then read in this program (Part 1) and run routines 4, 5, 6, and 7 
with the API option selected (SW12 = 1 at start from 00200). 



6. ERRORS 



Almost all hardware malfunctions detected by the program result in an error 
message typed on the Teletype. Each error message includes drive number, 
operation, direction, mode, error status, block being operated on, and correct 
and incorrect data, if applicable. 



6.1 Error Typeout Descriptions 



6.1.1 Search Error Typeouts 

The Search Error Typeouts are in several formats. The Search Routine used by 
the Parity Test and Write/Read Test uses the following format: 

DRIVE X (A) 

SEARCH FWD (or BKWD) (B) 

XXXXXX BLOCK WANTED FWD (or BKWD) (C) 

XXXXXX BLOCK FOUND (D) 

XXXXXX LAST BLOCK (if BLOCKS (E) 
READ ^002) 

XXXXXX BLOCKS READ (F) 

XXXXXX STAT B XXXXXXIORS (G) 
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6.1.1 Seorch Error Typeouts Cont . 

a. This will be the first line of every typeout. Drive X is the drive that was 
being operated at the time of the error. 

b. The second line of every typeout indicates the DECtape function, direction, 
and mode . (Typeout will be C MODE for continuous mode .) 

c. This is the block number that the search routine should find as an end result 
and the direction in line B is the same as the direction in line C, the turn- 
around for finding the block has already been made. If the two directions 
are different, the error occurred before turnaround . 

d. This is the contents of symbolic register BLKFND and could indicate one of 
the following: 

1 . Should be ighored if BLOCKS READ = 000000 and the directions in 
lines B and C disagree. It could indicate the turnaround block, if the 
directions are the same and BLOCKS READ = 000000. 

2. That the DECtape did not turn around in one PDP-9 block length, 
if BLOCKS READ = 000001, STAT B = 000100, and the directions 
indicated are the same. 

3. The BLOCK in error, if BLOCKS READ does not = 000000 and 
STAT B is an error status (i.e., 600000 MARK TRACK ERROR) 
other than END ZONE (500000). 

e. This line of the typeout is included only if two or more block numbers have 
been received since the search operation was started, or since the direction 
bit in Status A was complemented for turnaround. Examine STAT B and if 

it does not equal 000100 ignore this line . If STAT B does = 000100, LAST 
BLOCK compared against BLOCK FOUND will indicate that the last two 
block numbers were not sequential or, that lORS Bit 10 is a 0. 

f . The number of block numbers received since the search operation was initiated 
or since turnaround . 

g. This is the DECtape Status B register and the lORS status, if STAT B does not 
= 000100, or if bit 10 of lORS does not = 1, this is the error condition that 
caused the typeout. If STAT B equals 500000 (end-zone interrupt), and the 
directions in lines B and C are the same, it should mean that the drive made 
one turnaround and went the length of the tope without finding any blocks. 
An end-zone error before turnaround indicates that at least one block number 

' hod been read, and that the block wanted was two or more blocks from 
end zone in the direction opposite the search (i .e., BLOCK 2 WANTED 
FWD or BLOCK 1075 WANTED BKWD). 
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6.1.1 Seofch Error Typeouts Cont . 



The Start/Stop Turnaround Test adds one line to the format for search error 
typeouts and indicates the last valid tape position and the direction 
tape was moving at the completion of the last successful operation on that 
drive . 



DRIVE 7 

SEARCH FWD 

000005 BLOCK WANTED FWD 

000005 BLOCK FOUND 

000003 BLOCK RD LAST 

000003 BLOCKS READ 

000100 STAT B 000200 lORS 

000000 FWD LAST POS 



This typeout would indicate that two 
block numbers in a row were read that 
were not sequential (last block was 3 
and the next block read was 5 skipping 
block 4). The last valid tape position 
before Start Up the tape had been stopped 
at Block going FWD. 



DRIVE 7 
SEARCH FWD 

000005 BLOCK WANTED FWD 

000006 BLOCK FOUND 
000001 BLOCKS READ 
000100 STAT B 000200 lORS 

000004 BKWD LAST POS 



In this case, notice that the difference between BLOCK and LAST POSITION is 
1 and that the operations were in opposite directions. This indicates a turnaround 
error. If these lines differ by more than 1, the error would have been on a 
start-up . 



DRIVE 8 

SEARCH FWD 

001077 BLOCK WANTED BKWD 

000773 BLOCK FOUND 

000000 BLOCKS READ 

600000 STAT B 000200 lORS 



This typeout indicates a Mark-Track error 
(600000 Stat B) . Block Found should be 



6.1.2 Reod Data Status Error Typeouts 

The first three lines of the read-data typeouts are in the same format as the search 
typeouts. The first two lines contain drive number, operation and direction, and 
the third line is the block being operated on and for Test 5 the direction the block 
was written. Again, depending upon which test routine is being run, one of several 
typeouts could occur . 
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6.1.2 Reod Datq Status Error Typeouts Cont. 



DRIVE 1 

READ DATA FWD 

000046 BLOCK WRITTEN FWD 

420100 STAT B 000200 lORS 



This typeout indicates a Parity Error was 
detected reading Block 46 in the Forward 
direction 



Note: If any Data Errors in the block, this typeout will be followed by 
a Data Error typeout (see Paragraph 6. 1 .5) . 



DRIVE 2 

READ DATA BKWD 

000100 BLOCK 

777757 DATA 

4201000 STAT B 000200 lORS 



(This typeout !s used by the Parity 
Generation Test. The Data line of 
of this typeout indicates the data pattern 
written to test parity. In this case, the 
reverse checksum is 20; (CHECKSUM going 
forward was 75) . The LPB at the end of a 
block in read data should always be 77 for 
normal operation). 



DRIVE 2 

READ DATA FWD 

000100 BLOCK PARITY ERROR EXP 

020000 DATA 

000100 STAT B 000200 ICRS 



(This typeout is also used by the Parity 
Generation Test and could follow the 
one above. The typeout indicates that a 
parity error should have been generated, 
but was not received. Again, the Data 
line of the typeout indicates the data 
pattern written to test the parity circuitry. 
Notice the complement obverse relationship 
between the two data typeouts. In this case, 
the CHECKSUM has been rewritten to 02 
in WRITE ALL, it was 75 rfter 00 after reading the 
block. READ DATA and STATE CHECK going 
to and 1 PB not equal to 77 is 1 to PARITY 
ERROR. See poragraph 7.7 for a complete 
description of the parity test.) 



DRIVES 

READ DATA FWD 

000001 BLOCK 

777400 WC 

000100 STAT B 000200 lORS 

In the read data typeouts, the contents of the word count register (address 30) are 
included only if the WC did not go to 0. Or, if the DECtape status B was normal 
(OOOIOO) and the WC did not go to 0, the above typeout would occur. 
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6.1.3 Checksum Error Typeouts 

The Parity Generation Test writes various data patterns in the first and second 
characters of each block. Since the reverse checksum is written to 00, the 
checksum generated by the TC02 should either be the complement of the first 
character in the block or if the first two characters are written should equal 77. 
The following typeouts could occur if the parity generation is failing. 



DRIVE 4 

READ ALL FWD 

CKSUM ERR 

000200 BLOCK 

040000 DATA 

730000 DATA CKSUM EXP 

770000 CKSUM READ 



(First word of block as read from tape .) 

(What the contents of the Checksum should be.) 

(Checksum from tape as Read-In Read-All.) 



DRIVE 6 

READ ALL FWD 

CKSUM ERR 

000020 BLOCK 

757500 DATA 

770000 DATA CKSUM EXP 

750000 CKSUM READ 



(First Data word of block as read from tape.) 
(What the contents of the Checksum should be.) 
(Checksum from tape as Read-In Read-All) 



6.1.4 Write Dota Status Error Typeouts 

Write data error typeouts also include drive, operation, and direction, block being 
operated on, and the error status. 



DRIVE 6 

WRITE DATA FWD 

000765 BLOCK 

777715 WC 

600000 STAT B 000200 lORS 



(This typeout indicates a mark-track error 
while doing a Write Data Forward on block 
0765. The WC typeout indicates that the 
error occurred with 63q words left to be 
written.) 



DRIVE 7 

WRITE DATA BKWD 

000005 BLOCK 

7777400 WC 

000100 STAT B 000200 lORS 



(If STAT B indicates a normal block interrupt 
(000100) and the WC has not gone to 0, this 
typeout occurs.) 
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6.1.5 Data Error Typeouts 

A data error may or may not follow a parity error typeout; it could also occur 
without a parity error. Again, the first three lines of the typeout ar« the same 
as for search errors: drive, operation and direction, and block number (including 
the direction that the block was written in .) 

DRIVE 6 

READ DATA FWD 

000241 BLOCK WRITTEN FWD 

252525 DATA WR 01400 APRS (Data Written and its Memory Location) 

252527 DATA RD 014400 ADRS (Data Read and its Memory Location) 

525252 DATA WR 014001 ADRS 
525256 DATA RD 014401 ADRS 



7. PROGRAM DESCRIPTION 



7 . 1 Basic Motion or Move Scope Loop (Routine 0) 

This routine ma y be used as a visual verification of the tape motion operation of 
the DECtape drives and some sections of the TC02 control . Initially, the routine 
starts tape moving in the FWD direction and periodically monitors the tape motion 
bit (Status A Bit 4) and the contents of the Accumulator Switches. 

The program utilizes the DTLA lOT to load a MOVE FWD (on the lowest drive 
selected) into the TC02 Status A register. Status A Bit 4 is then monitored, by the 
program for approximately 17 ms using the DTRA lOT. 

If the motion bit does not go to during the 17 ms, the program reads the accumulator 
switches. If the switches are all 0, the program then returns to the loop monitoring 
the tape motion bit. If the switches are not all 0, the program ISZ's a core memory 
location and when this memory register is equal to the contents of the AC switches 
or greater than the contents of the AC switches tope direction is reversed by the 
program, using the DTXA lOT with AC bit 3 on a 1 . 

If Bit 4 of Status A goes to during the 17 ms loop. Status B Is read. If Bit 2 of 
Status B is a 1, indicating End Zone, tape direction is reversed and tape motion 
is set to a 1 by a DTXA lOT with AC Bits 3 and 4 on a 1 . If Bit 2 of Status B is a 
0, tape motion is set to a 1 by a DTXA lOT with AC Bit 4 on a 1 and tape direction 
is not reversed . 
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7.2 Search Scope Loop (Test Routine 1) 

This routine storts forward in search function and reverses direction at End Zones. 
The DECtape flag and all error status except end zone are ignored. The program 
starts forward in search and displays the last block number received in the AC 
while doing a series of lOT NOP's for approximately 36 ms. At completion of 
the lOT NOP loop, the program tests for end-zone status and complements the 
direction bit if end zone was reached. If end zone was not reached, search 
enables are reset and the motion bit in Status A is set to a 1 if it was cleared . 
This scope loop also monitors AC switches 5 to 17 and if they are not equal to 0, 
the program will increment a memory location and will cause the tape to search 
in the opposite direction if the contents of the memory equals or is greater than the 
switches. 

The DECtape lOT's used are DTCA, DTRA, DTXA, and DTRB. 

While the tape is moving backward, the AC should appear to increment and while 
tape is moving backward, the AC should appear to decrement. 

AC switches 3 and 4 may be used to specify an extended memory bank and if 
they are not both equal to 0, the respective memory bank will be used for reading 
block numbers into. 



7.3 Read Scope Loop (Test Routine 2) 

This routine starts forward in read data and sets up to read in 256-word blocks. 
When end zone is reached the tape is run backwards in read data. For any other 
error, the tape continues in read data in the same direction. Each time an end 
zone is reached, tape direction is reversed. 

AC switches 3 and 4 may be used to specify an extended memory bank to read data 
into. None of the other AC switches are pertinent. 

The DECtape lOT's exercised are DTLA, DTDF, DTEF, DTRA, DTXA, and DTRB. 
Unlike the MOVE and SEARCH Scope Loops, this routine uses the SKIP lOT's to 
monitor flags. 



7.4 Write Data Scope Loop (Test Routine 3) 

This routine starts forward in search. When a block number is found, the program 
changes to write data for one block, then back to search (picking up the next 
block in sequence) and then to write data again. The program continues in that 
mode until end zone. Upon reaching end zone the tape is started backwards in 
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7.4 Write Scope Loop (Test Routine 3) Cont . 

search and is again changed to write data when a block is 
found. Each time an end zone interrupt is received, the 
tape direction is reversed. For any other error status, 
the function is reset to search and tape direction is not 
reversed. Any of the eight data patterns in the Write/Read 
Data Test may be selected by placing the pattern niamber in 
switches 15, 16, 17. See paragraph 7.6. The routine has 
to be restarted from 200 to change pattern or extended 
memory selections. 

AC switches 3 and 4 may be used to select on extended memory 
bank for pattern generation and to output patterns from. 

The DECtape lOT's exercised are DTLA, DTRA, DTXA, DTDF, DTEF . 
and DTRB. 

7-5 Search Find All Blocks (Test Routine 4) 



Before a program can verify that the DECtape system can write 
correctly, it must prove that the system can write correctly, 
it must prove that the system can read correctly. Since a 
DECtape with a, so-called, virgin tape pattern is not always 
readily available and a DECtape with correctly written block 
numbers is usually available, the first verification of read 
operations must be a Search Test. Search Find All Blocks 
moves the DECtape backward into the end zone, reads the tape 
forward, and verifies that blocks are numbered 0000 to 1077; 
then moves the tape into forward end zone, reverses the tape 
and tests that blocks are numbered 1077 to 0000. Or, if 
PDP-7 format tapes are specified (SW 13=1 at Start) , the blocks 
should be numbered 0000 to 1101 and 1101 to 0000. 

7-6 Write/Read Data Test (Test Routine 5) 

The search routines establish a minimum capability to read 
known data from tape. This routine establishes the ability 
to write data and further establishes the ability to read 
data. The test includes eight selectable data patterns and 
three selectable modes of operation. The basic sequence of 
operation is write forward, read backward, read forward, read 
backward. The sequence may be selected for 1 block at a time, 
16 blocks at a time, or the lenght of tape. The program 
recylces and runs until STOP is depressed. At the end of each 
complete sequence (the length of tape) , the program types out 
the pattern number and END. The eight write patterns are as 
follows : 

000000 

1 777777 

2 000000, 777777, 000000 (alternate words of O's and I's) 

3 252525 

4 525252 

5 070707 

6 707070 

7 252525, 525252, 252525 (alternate words of 25's and 52's) 

- 22 - 



7.6 



Write/Read Data Test (Test Routine 5) Cont. 



The pattern to be written is selected in SWITCH REGISTER 
bit 15, 16, and 17. Place the number of the pattern 
desired in these switches. 

Switches 13 and 14 are used to select the sequence of 
operation as follows: 



SW13 





1 



SW14 

1 




Operation 

Write and read sequence the length 
of the tape . 

Write and read sequence in 16 block 
increments . 



or 



1 
SW10=0 



SW10=1 



SW9=0 
SW9=1 

SW12=e 
SW12=1 
SWH=0 
SW11=1 
SW8=1 



Write and read sequence one block at 
a time . 



Take the next pattern to be exercised 
from SWs 15, 16, and 17. 

Exercise sequentially through the 
patterns; i.e., after one complete 
sequence the length of tape with 
pattern number 3, exercise pattern 
number 4, after exercising 4 go to 5. 
Patterns are not changed until block 
1077 has been written backwards. 

Type out parity error information and 
data errors. 

Ignore parity and data errors. Mark 
track, timing, and select errors are 
not ignored. 

Sequence from write to read data 

Write data only. 

Sequence from read data to write data. 

Read data only (SWll overrides SW12) 

Stop at the WRITE PASS one direction 
or, stop at the End of a READ PASS 
both directions. 



Switches 3 and 4 are monitored for extended memory selection 
at the start of each new pattern selection and this selection 
is held until that pattern has been exercised the length of 
tape. 
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7.7 Parity Generation and Checkincf Test (Test Routine 6) 

The complete test of parity generation and checking requires 
several passes over a series of blocks. The steps that the 
program takes for a complete test of the parity circuitry 
are as follows: 

STEP 1 Write reverse checksums to (actually written to 

77 going backward and should equal 00 going forward) . 

STEP 2 Write data patterns. Various data patterns are 

written in the first and second charcters of each 
block and the rest of the block is written to zeros. 
(Note: the checksums generated are either the 
complement of the first character ot 11 q, if the first 
two characters are written) . 

STEP 3 Read/Verify checksums. The checksums are read back 
and verified to be the complement of the first 
character in the block or 77, if the first two 
characters of the block are non-zero. 

STEP 4 Test no parity errors. The blocks are read in both 
directions and no parity errors should be generated. 

STEP 5 Write blocks to weong parity. The checksums are 

written to be the same as the first characters in the 
block so that the LPB will not equal 77 when the block 
is read. 

STEP 6 Test for parity errors. The blocks are read in both 
directions and parity errors should be generated. 

The program then repeats from step 1 and will run util STOP is 
depressed. 

If an error typeout is generated indicating PARITY ERROR EXPECTED, 
the contents of the LPB can be determined by the following 
procedure : 

a. The typeout includes the first data word of the block as 
read forward or the last word of the block if read 
backward (actually same word but complement obverse if 
read backward) . 

b. This word will contain either one or two non-zero 6-bit 
characters that do not equal 77 (BKWD) . 

c. If there is only one 6-bit character, the LPB should be all 
O's at the time it is strobed for parity error. This is true 
whether read occurred in a forward or backward direction. 
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7.7 ParitySenratDah ana Cheeking Test (Test Routine 6) Cont . 

,1 ^ 1^1 ^ , II, li^ m n_ . ^ 11 ^ m i. n I, X ■ ^. ' ^ ■ ■ ■ % " ^ ' H m ^ i <ii ■> - m^ i ^ .i .» * .y i» i m . m . ^ i.- n III .1 I — ..I — .1 ■ ■■- ■■■Ill I ■■11 I . ...ii. 

d. If the read direction is forward and there are two 
non-zero characters in the first word, the LPB should 
be equal to one of the characters at the time it is 
strobed for parity error; i.e., WORD=020200, LPB=02. 

e. If the read direction is backward and there are two 
characters not equal to 77 , the LPB should have equaled 
the complement of one of the characters when it was 
strobed for parity error; i.e., WORD=775757, LPB=20. 

Two switches apply to the Parity Test, switch 8 and 
switch 12. 

SW8 = 1 is Halt at end of Each Pass 

SW12 = 1 is Repeat Current Parity Test Pass 

7.8 Basic Search Routine (Test Routine 7) 

In this routine, the tape is searches in either direction 
until a series of 256 block numbers are read and stored. 
(Or until end zone is reached or some error status is 
generated.) The decision is made to either type out all 
of the block numbers or to have the program verify that 
the block number read are sequential. When started the 
program types ; 

DRIVE 8 (or which ever drive is selected) 
TYPE IN F FOR FORWARD 
ALL OTHERS BACKWARD 

At this point, type in a "F" to search forward or any other 
key to search backwards. The program will search in the 
direction selected until an error status or end zone occurs , 
or until 256 block numbers have been read and stored in 
memory. It then types: 

XXXXXX STATE 000200 lORS If an Error Status other 
XXXXXX BLOCKS READ than DTF 

To have the program verify that the block numbers are 
sequential, type in a "C". Any other character typed in 
causes the program to type out the complete series of block 
numbers. If a "C" is typed, txie program types out block 
numbers that are no sequential. The program always types 
the first and last block numbers read as follows: 

XXXXXX FIRST 
XXXXXX LAST 
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7.8 Basic Search Routine (Test Routine 7) Cont . 

The following series to typeouts would occur if the Search 
Direction was forward, 256 block numbers were read without 
an Error Status and the second selection was to compare 
block numbers: 

DRIVE 7 

TYPE IN F FOR FORWARD 
ALL OTHERS BKWD F 

TYPE IN C FOR COMPARE 
ALL OTHERS PRINT C 

000061 FIRST 
000460 LAST 

The following series to typeouts could occur if the Search 
Direction was backward and an END ZONE was detected while 
searching and the selection was to PRINT: 

DRIVE 7 

TYPE IN F FOR FORWARD 

ALL OTHERS BKWD 8 

5000000 STAT B 000200 lORS 

000016 BLOCKS READ 

TYPE IN C FOR COMPARE 
ALL OTHERS PRINT P 

000015 FIRST 

000015 000014 000013 000012 000011 000010 000007 000006 

000005 000004 000003 000002 000001 000000 LAST 

7.9 Start/Stop/Turnaround Test (Test Routine 10) 

When the ability to correctly read block numbers has been 
established, a more thorough test of the DECtape motion controls 
can be given. The Start/Stop/Turnaround Test verifies the 
following operations : 

TURNAROUND Both direction on BLOCK BDWD then FWD/STOP 

Start FORWARD/STOP 

Start BACKWARD/STOP 

Start FORWARD/Wait UP TO SPEED/Turnaround/STOP 

Start BACKWARD/Wait UP TO SPEED/Turnaround/STOP 

The sequence is repeated for the length of tape. Turnaround is 
tested in both directions on block 1077. 
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7.9 Start/Stop/Turnaround Test (Test Routine 10) CONT 

Since the tape is up to full speed before turnaround, the 
tape must be up to speed again by the time it returns to that 
same point on the tape. CThis is a TU55 spec and should not 
be confused with the programming spec. Normal search operations 
should wait for 1 more block to pass before doing a turnaround. 

The routine does each step of the operation for each drive 
selected. After each "STOP" for the last drive selected and 
before starting the next operation on the first drive, the 
program times out 1/2 second. Normally, the sequence will 
exercise all blocks equally the length of tape. 

If AC SW12 is a 1 the program will repeat Start FORWARD/STOP 
twice and every sixth block will be exercised the length of 
tape. 
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PAGE 



TC023X 



TC02B1 





.TITLE TC02B1 




.ABS 




/TC02 BASIC EXERCISER POP-15 - PARTl 




/TAPE 1 




/EQUATE OECTAPE lOT'S 


707541 


DTCa. 707341 


707542 


OTRA«707542 


707544 


OTXA«707544 


707545 


0TLA»0TCA!0TXA 


707561 


OTEF«70756t 


707562 


DTRBi707562 


707601 


DTDF«707601 




/EQUATE OECTAPE FUNCTIONS (STAT A) 


021000 


SRCHrWi2l000 


061000 


SRCHBWI61000 


060000 


MOVBKMf60000 


0^2000 


ROATArt22000 


'009000 


WRALL«9000 


003000 


RDALI.«3000 




/BIT CONSTANTS EQUATED 


020000 


GOBITi>20000 


040000 


OIRBlTi40000 


100000 


EZBIt"100000 


010000 


MODEBT1I0000 


020000 


PAR8lTi20000 


000100 


DTrBlTil00 


000400 


ENABLli400 


773000 


BLKTIMbLAW -3000 /ABOUT 36 MSEC 


777400 


BLENTHtUAW -400 /-256 FOR BLOCK WC -400 qCTAL 


000030 


WC|.OC»80 /WORD COUNT 


000031 


CALOCaSl /CURRENT ADDRESS 


006400 


BUrFCRi6400 


007000 


BUrrR2BBUrFER*400 


000300 


INHClRi300 


006377 


BLKFN0»BUFFER-1 


007400 


BUrFR3lBurFR2*400 
/ 

.EJECT 





PACE 



TC02BX 



TC2281 







/IN CASE OF CAL 


00020 




,l.OC 20 


tizezis 


000020 


20 


00021 


700304 


lORS-10 


00022 


700301 


Ksr 


00023 


741000 


SKP 


00024 


740040 


HIT 


00025 


700042 


ION 


00026 


703344 


OBR 


00027 


620020 


JMP* 20 



.EJECT 



PACE 3 TC02BX TC02Si 



/STARTING ADDRESS IS 200 

/SET SW RES TO SELECT DRIVES BlT0aDRIVE 6 SWl IS D^^V 1 

/TO SW7 IS DRIVE 7 

/SW14 TO SW17 SELECT TEST 

/«0 IS MOVE TIMED TURN AROUND AC SWS=e IS 30uNCE OFF EZ 

/•I !S SEARCH SCOPE LOOP TIMED TURN AROuvO 

/■2 iS READ DATA SCOPE LOOP BOUNCE OFF E? 

/•3 IS WRITE DATA SCOPE LOOP BOUNCE OFF f2 

/»4 IS SEARCH FIND ALL BLOCKS 

/•5 IS WRITE AND REAAD DATA TEST 

/■6 IS PARITY GENERATION TEST 

/»7 IS READ 256 BLOCK NUMBERS AND COMPARE OR PRIMT THEM 

/■10 IS START - STOP " Ta 

/SW12 ■ I IS USE API FOR INTERRUPT 

/ 

/PATTERN SELECTION ''OR 3 AND 5 IS 

/SW15 to 8W17 

/"0 ALL HERDS *1 ALL ONES »2 ALT WORD kORO 1 

/■3 IS 252525 i»4 IS 525252 "S IS 070707 

/■6 IS 707070 »7 IS 252525 525252 

/ 

/ 

/OTHER SWITCH CONTROLS TEST 5 

IS 16 BLOCKS 

OR 30 IS 1 BLOCK 

IS WRITE ONLY 

OR 140 IS Read only 

IS SEQUENCE PATTERNS 

IS HALT AFTER WRITE PASS OR READ PASS BOTH DIRECTIONS 

IS DELETE ERROR CHECKING ThaT DOES NOT STOP TAPE 

/SW8 3|4 AND 5 NON WILL USE EXTENDED MEMORY (4K AT A TIME) 

/00e ■ BANK •001 ; BANK 1 *010 ■ BANK 2 >0 11 ■ BANK 3 

/100 • BANK 4 -101 • BANK 5 ,110 * BANK 6 -111 ■ BANK 7 

/SWITCH CONTROL TEST 6 

/SWS • 1000 IS HALT END OF PASS 

/SWS * 40 IS REPEAT LAST PASS 

/ 

/ 

/STANDARD 

/SWITCH IS DELETE ALL TYPEOUTS 

/SWITCH 1 IS DELETE ERROR HALT 

/SWITCH 2 IS TYPE ONLY 4 DATA ERRORS 
.EJECT 



/SWS 




10 


/SWS 




20 


/SWS 




40 


/SWS 




100 


/SWS 




200 


/SWS 




1000 


/SWS 




400 



PA6E 



TC029X 



TC0aBl 



00200 




00200 


750004 


00201 


504555 


00202 


740200 


00203 


600206 


00204 


740040 


00209 


600200 


00206 


040643 


00207 


750004 


00210 


504556 


00211 


344557 


00212 


740100 


00213 


600204 


00214 


750004 


00215 


504556 


0021« 


344560 


00217 


040244 


00220 


204561 


00221 


040264 


00222 


344562 


00223 


040265 


00224 


204563 


0022S 


041273 


00226 


750004 


00227 


504564 


00230 


740200 


00231 


101345 


00232 


200244 


00233 


740040 


00234 


100266 


00235 


160340 


00236 


160341 


00237 


160342 


00240 


100309 


00241 


600235 


00242 


204565 


00243 


040001 


00244 


620245 



/SELECT TESTS SETUP TOR 
/FIRST DRIVE TO 0«IVE TABLES 

,LOC 200 
TC02TS LAS 

(776300 



AND 
SZA 

JMP 
HIT 
JMP 
DAC 
LAS 
AND 
TAD 
SMA 
JMP 
LAS 
AND 
TAD 



,*3 

TC02TS 

MSB ITS 



/MASK Drive bits 



/TEST Number to high 

/OR IF AC»0 ^'C1 DRIVES 



(17 

(TSTTBfNDTTBL 

/LEGAL TEST NUMBE" 
TC02TS*4 /NO 



GOTST 



(17 

(JMP» TSTTBL 
DAC GOTST 
LAC (1102 
DAC EiBLOK 
TAD (777777 
DAC EN08LK 
LAC {DTRA*10 
DAC WTFlGS*! 
LAS 

AND (40 
SiA 

JMS APJSET 
LAC GOTST 
HLT 

JMS RSrORV 
DZM» POSITN 
DZM» DIRECT 
D2M* LS8L0K 
JHS NEWORV 
JMP ,-4 
LAC (JMP« 2 
DAC 1 

JMP» TSTTBL 
•EJECT 



/END BLOCK IS EiBLOK-1 



/GET riRST DRIVE 
/0 DRIVE TABLES 



/DONE All DRIVES 

/0 NEXT ORIVE TABLES 



/LOC CHANGE TO ♦ TEST NUMBER 



PAGE 



TC02BX 



TC02B1 



00249 


000646 


TSTTBL 


PTTRNA 


00246 


000713 




SRE2LP 


00247 


000764 




RDEHLP 


00290 


001024 




WDEELP 


00291 


001162 




srchts 


00292 


001943 




wraro 


00293 


002266 




PARTST 


00294 


003210 




SRCH2R 


00299 


003493 




STRSTP 




000296 


NOTTBL* 


♦ 


00264 






,LOC TSTTBL*17 


00264 


000000 


EZBLOK 





00269 


000000 


ENOBLK 



.EJECT 



PAGE 



TC02BX 



TC02B1 







/RESET 


SELECTION TO FIRST DRIVE 


00266 


600266 


aSPORV 


JMP . 




00267 


140641 




DZM CDRIVE 


/START WITH DRivC 8 


00270 


204566 




LAC (400000 




00271 


040642 




DAC CBIT 


/SET COMPARE BIT 


00272 


500643 




AND MSBITS 




00273 


740200 




S2A 


/DRIVE SELECTED 


00274 


600301 




JHP .♦S 


/YES 


00275 


200642 




LAC CBIT 


/SET UP 


00276 


440641 




ISZ CDRIVE 


/FOR NEXT DRIVE 


00277 


744020 




RCR 




00300 


600271 




JMP RSFDRV*3 




00301 


100322 




JMS SETUNT 


/GENERATE UNIT TABLE 


00302 


620266 


/SELECT 


JMP(» RSFDRV 

NEXT DRIVE Skip 


/ADDRESSES PCS FOR lOTS 






/EXIT ADDRS ir LAST DRIVC PAST 


00303 


600303 


NEWDRV 


JMP , 




00904 


200642 




LAC CBIT 




0030S 


744020 




RCR 


/POSITION 


00306 


440641 




ISZ CDRIVE 




00307 


544567 




SAD (1000 




00310 


600317 




JMP ,*7 




00311 


040642 




DAC CBIT 




00312 


500643 




AND MSBITS 




00313 


741200 




SNA 


/DRIVE SELECTED 


00314 


600304 




JMP NEWDRV*! 


/NO TRY NEXT 


00315 


100322 




JMS SETUNT 


/SET UP THIS ORIVE 


00316 


620303 




JMP« NEWDRV 


/EXIT 


00317 


100266 




JMS RSrORV 


/RESET TO FIRST qRIVE 


00320 


440303 




IS2 NEWDRV 


/STEP FOR SKIP 


00321 


620303 




JMP* NEWDRV 




00322 


600322 


setunt 


JMP . 




00323 


200641 




LAC CORIVE 




00324 


744020 




RCR 


/POSITION DRIVE 


00329 


742020 




RTR 


/NUMBER FOR 


00326 


740020 




RAR 


/OECTAPE FUNCTIONS 


00327 


040631 




DAC UNFUNC 




00330 


200641 




LAC CDRIVE 


/GENERATE TABLE 


00331 


344570 




TAD (POSTBL 


/ADDRESSES 


00332 


040340 




DAC POSITN 




00333 


344571 




TAD (10 




00334 


040341 




DAC DIRECT 




00335 


344571 




TAD (10 




00336 


040342 




DAC LSBlOK 




00337 


620322 




JMP« SETUNT 





.EJECT 



PAGE 



TC02BX 



TC0281 



00340 


000000 


POSITN 









00341 


000000 


DIRECT 









00342 


000000 


lsblok 









00343 


000000 


. POSTBL 









00353 






•LOG POSTBL' 


»10 


/RESERVE 8 LOCATIONS. 


00353 


000000 


OIRTBU 







/EACH FOR DIRECTION 


00363 






iLOC OIRTBL' 


»10 


/POSITION AND 


00363 


000000 


LSTTBL 







/LAST BLOCK WRITTEN 


00373 




/ 

/REWIND 


.LOC LSTTBL- 


►10 








1 DRIVE TO f 


'EVERSE ENOEONE 


00373 


600373 


REWORV 


JMP , 






00374 


204572 




LAC {G0aiT*OlRBlT 


00375 


340631 




TAD UNFUNC 






00376 


707545 




DTLA 




/MOVE TAPE BKWD 


00377 


707572 




DTRB*10 




/WAIT FOR FLAGS 


00400 


741200 




SNA 






00401 


600377 




JMP ,«2 






00402 


707562 




OTRB 






00403 


544573 




SAD (500000 




/CAN ONLV BE ENDZOnE 


00404 


600411 




JMP .tS 






00405 


104423 


MOVERR 


JMS STPTAP 




/MOVE Error typeout 


00406 


104304 




JMS TYMOVE 






00407 


104153 




JMS ERWHLT 






00410 


600374 




JMP REWORV*! 






00411 


700314 




lORS 




/EF should IORS 


00412 


504574 




AND (200 






00413 


740200 




S!A 






00414 
00415 


620373 
600405 




JMP» REWDRV 
JMP MOVERR 
.EJECT 







PASE 8 



TC02BX 



TC02Bi 



00416 
00417 
00420 

00421 
00422 
00423 
00424 
00429 
00426 
00427 
00430 
00431 
00432 
00433 
00434 
00439 
00436 
00437 
00440 
00441 
00442 
00443 
00444 
00445 



00446 
00447 
00490 
00491 
00452 
00493 
00454 
00459 
00496 
00497 
00460 
00461 
00462 
00463 



600416 
754000 
540633 
744002 
204575 
741400 
777776 
340634 
040635 
344575 
540634 
204576 
544576 
741000 
204577 
340631 
707545 
750001 
040636 
100506 
600446 
600446 
707554 
600441 



750001 
040636 
707552 
740001 
904600 
344601 
707544 
200634 
040635 
100506 
620416 
600560 
707554 
600457 



/SEARCH ROUTINE 
/riNO BLOCK IN (RECORD) 
/DIRECTION INDICATED BY 
/DlRrLC»0 IS FWD 

SEARCH JHP , 

CLA'CLl 
SAO DIRFLG 



OIRFLG! 



LAM IS BKkO 



STL 
LAC 

S2L 

LAW 

TAD 

DAC 

TAO 

SAD 

LAC 

SAD 

SKP 

LAC 

TAD 

DTLA 

CLAICMA 



(2 

-2 

RECORD 

TAPONT 

(2 

RECORD 

(SRCHBW 

(SRCHBM 

(SRCHFW 
UNFUNC 



/PORwARD 
/YES IS SET 

/BKWD IS+2 
/FWD IS -2 



LINK 



FOR TA 



/TURN AROUND BLOCK 

/FORWARD 
ENABlI /WANT BLOCK 



ENABlI 
ENABlI 



/START BKW 



FWO 
IS WANT 



FWD 



/START IS FWD To FIND BKwD 



DAC FRSFLC 

JMS SWT8LK 

JMP OOTURN 

JMP DOTURN 

DTXA*10 

JMP ,»4 

/FOUND TURN AROUND POINT ON TAPE 
/OR PASSED IT 
OOTURN CLAICMA 

DAC FRSFLC 

OTRA*10 

CMA 

AND (OOBIT 

TAD (DIRBIT 

DTXA 

LAC RECORD 

DAC TAPONT 

JMS SWTBLK 

JMP» SEARCH 

JMP SRERRl 

OTXA*10 

JMP .-4 

•EJECT 



/BLOCK»TApOlNT 
/BLOCK PAST TAPOINT 
/NOT RChED TAPOimT 



/IN CASE GO CLRd 
/CHNG DIRECTION 

/WAIT FOR BLOCK iNT 
/FOUND BLOCK EXIT 
/PAST BLOCK ERROR 
/NOT REACHED yEt 
/WAIT NEXT BLOCK 



PAGE 



TC02SX 



rc08si 







/SEE IF 


ERROR INTERRUPT WAS 






/PROPER 


END ZONE 




00464 


200635 


SRCHEE 


LAC TAPONT 




00469 


540634 




SAO RECORD 


/AFTER TURN AROuvD 


00466 


600560 




JMP SRERRl 


/EVERY ERR FLAG iS ERROR 


00467 


707572 




OTRB*10 




00470 


5046B2 




AND (EZaiT 




00471 


741200 




SNA 




00472 


600560 




JMP SRERRl 


/NOT END Zone INT 


00473 


200635 




LAC TAPONT 




00474 


741100 




SPA 


/BLOCK OR 1 Trw arnO 


00475 


600446 




JMP DOTURN 


/YES SEE IF BLK Z 


00476 


540264 




SAD liBLOK 


/LAST ONi TAPE TURN AROUND 


00477 


600446 




JMP OOTURN 


/YES 


00500 


344562 




TAD (777777 




00901 


540264 




SAD EZBLOK 




00502 


600446 




JMP OOTURN 




00503 


440636 




ISZ FRSFLC 


/MORE THAN 1 BLOCK RO 


00504 


600560 




JMP SRERRl 


/YES SHOULD BE TljRN aRNQ 


00509 


600446 




JMP DOTURN 


/BEFORE THIS 






/WAIT rOR OTF OR ERR 


FLAG 






/oetcrmine»creater Or less 






/TCST BLOCK NUMBERS ' 


TO BE CONSECUTIVE 


00506 


600506 


SWTBLK 


JMP , 




00507 


204603 




LAC (8LKFN0 




00510 


040031 




OAC CALOC 




00511 


101272 




JMS WTFLGS 


/WAIT FOR 


00512 


600464 




JMP SRCHEZ 


/ERROR OR 


00513 


206377 




LAC BLKFNO 


/DECTAPE f'LAG 


00514 
00515 


440636 

600544 




ISZ FRSFLC 
JMP SNOTFS 




00516 
00517 


504604 
046377 




AND (7777 

OAC BLKFND 




00520 


540635 


swttes 


SAD TAPONT 


/BLOCK ■ LOOKED FOR 


00521 


600537 




JMP SWTXIT 
.EJECT 


/YES GET OUT 
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TC023 


00922 


740001 


00523 


300635 


00524 


440506 


00525 


74H00 


00526 


400534 


00527 


707552 


00530 


504601 


00531 


741200 


00532 


440506 


00533 


602537 


00534 


707552 


00935 


740001 


0fl536 


600530 


0«f37 


200637 


00540 


040640 


00S41 


206377 


01^542 


040657 


00943 


620506 


00944 


707558 


00945 


504601 


00946 


751200 


00547 


204609 


00550 


741200 


00551 


777777 


00992 


340637 


00553 


546377 


00954 


741000 


00955 


600560 


00556 


206377 


00997 


600920 


00960 


100563 


00961 


104153 


00962 


600417 



TC02B1 



CMA 

ADD TAPONT 

ISH SWTBLK 

SPA 

JMP ,♦6 

DTRA*10 

AND (OIRBIT 

SNA 

ISZ SWTBLK 

JMP SWTXIT 

DTRA*10 

CMA 

JMP ,-6 
SWTXIT UAC LSTBLK 

DAC LSTBLK*! 

LAC BLKFNO 

DAC LSTBLK 

JMP# SWTBLK 
/NOT FIRST BLOCK NUMBER 
/SCE IF CONSECUTIVE WITH LAST 
SNOTFS DTRA4-10 

AND (DIRBIT 

SNAICLA 

LAC (1 

SNA 

LAW »1 

TAD LSTBLK 

SAO BLKFND 

SKP 

JMP SRIRRI 

LAC BLKFNO 

JMP SWTTES 
SRERRl JMS SRERRO 

JMS tRRHLT 

JMP SEARCH*! 

.EJECT 



/MAKE BLOCK FOUNT 



/STEP XIT ADDRESS 
/BUOCK FOUMD LESS OR 
/GREATER THAN SEARCHED 



/BLOCK FOU^iD LESSER 

/AND FWD OlR IS ^OT reached 



• /SAVE LAST TWO 
/BLOCK NUMBERS 
/FOR ERROR INFO 



/FORWARD GOING 
/IS *1 
/BACKWARD 
/IS -1 



PACE 11 


TC023X 


TC02B1 






00S63 


600563 


SRERRO 


JMP . 




00564 


104423 




JMS STPTAP 




00565 


104316 




JMS TVS3CH 




00566 


104124 




JMS TYPTEX 




00567 


006741 




6741 


/WA 


00570 


566445 




566445 


/NTE 


00571 


4477013 




447700 


/D EOM 


00572 


200633 




LAC DIRFLG 




00573 


740200 




SZA 




00574 


600577 




JMP ,*3 




00575 


104411 




JMS TYFWD 




00576 


741000 ■ 




SKP 




00577 


104416 




JMS TY8KW 




00600 


206377 




LAC BLKFND 




00601 


104467 




JMS TYPBLK 




00602 


104124 




JMS TYPTEX 




00603 


004657 




4657 


/FO 


00604 


655644 




655644 


/UNO 


00605 


770000 




770000 


/EOM 


00606 


777777 




LAW -1 




00607 


340636 




TAD rRSFLG 




00610 


741100 




SPA 




00611 


600620 




JMP .♦7 




00612 


200637 




LAC LSTBLK 




00613 


104467 




JMS TYPBLK 




00614 


104124 




JMS TYPTEX 




00615 


006244 




6244 


/RD 


00616 


005441 




5441 


/LA 


00617 


636477 




636477 


/ST COM 


00620 


200636 




LAC FRSFLG 




00621 


344609 




TAD (1 




00622 


104467 




JMS TYPBLK 




00623 


104124 




JMS TYPTEX 




00624 


630062 




630062 


/S R 


00625 


454144 




454144 


/EAO 


00626 


770000 




770000 


/EOM 


00627 


104447 




JMS TYSTAB 




00630 


620563 




JMP* SRERRO 




00631 


000000 


UNPUNC 







00632 


000000 


Noex 







00633 


000000 


dirflo 







00634 


000000 


RECORD 







00635 


000000 


tapont 







00636 


000000 


frsflg 







00637 


000030 


lstblk 







00640 


000000 









00641 


000000 


CDRIVE 







00642 


000000 


CBIT 







00643 


000000 


MSBITS 







00644 


000000 


TIMCTR 







00645 


000000 


NDEXI 








.EJECT 



•: 12 


TC02BX 


TC02B1 










/PROGRAM TIMED TURN . 


AROUND 






/USES 


MOVE ONLV TIME 


PRO" SWS 


00646 


204630 


PTTRNA 


LAC (GOBIT 


/MOVE FORWARD 


00647 


340631 




TAD UNFUNC 


/♦ DRIVE NUMBER 


00650 


707545 




DTLA 


/START TAPE 


00651 


140644 




DZM TIMCTR 




00652 


775000 




BLKTIM 




00653 


040632 




OAC NDEX 




00654 


707552 




OTRA+10 




00655 


504600 




AND (COaiT 




00656 


741200 




SNA 


/GO BIT STILL SET 


00657 


600702 




JHP PTTEZ 


/NO 


00660 


440632 




ISE NOEX 


/I BLOCK TIME PASSED 


00661 


600654 




JMP ,-5 


/NO 


00662 


750004 




LAS 




00663 


741200 




SNA 


/WAIT FOR EZ 


00664 


600651 




JMP PTTRNA*.3 


/IF AC « 


00665 


440644 




IS2 TIMCTR 


/COUNT NUMBER OF BtOCKS 


00666 


540644 




SAD TIMCTR 




00667 


600674 




JMP ,*5 




00670 


740001 




CMA 


/IN CASE SWITCHES 


00671 


300644 




ADO TIMCTR 


/WERE CHNGO 


00672 


741100 




SPA 




00673 


600652 




JMP PTTRNA*4 




00674 


707552 




DTRA*10 




00675 


740001 




CMA 




00676 


504600 




AND (COeiT 




00677 


344601 




TAD {DIRBIT 




00700 


707544 




DTXA 




00701 


600651 




JMP (»TTRNA*3 




00702 


707572 


PTTEH 


0TR9*1B 




00703 


504602 




AND (EIBIT 




00704 


741200 




5NA 


/END ZONE 


00705 


6007U 




JMP ,*4 


/NO CO JUST CLEARED 


00706 


204572 




LAC (GOBIT*DlRBlT 


00707 


707544 




DTXA 




00710 


600651 




JMP PTTRNA*3 




00711 


204600 




LAC (GOBIT 




00712 


600707 




JMP ,-3 
.EJECT 





PACE 13 


TC028X 


TC02B1 










/SEARCH BOUNCE OFF Eg 


OR 






/TURN AROUND TIMED AC 


SWiTCHS , ■• 


00713 


■ 204606 


srezlp 


LAC (SRCHFW 




00714 


340631 . 




tao unfumc 




00715 


707545 




otla 


/START TAPE FWO 


00716 


140644 




OEM TIMCTR 


■ /ZERO BLOCK COUNTER 


00717 


750004 




LAS 




■ ' 00720 


504607 




AND (70000 




■ 00721 


344610 




TAO (BUFFER 




00722 


040031 




DAC CALOC 


/.SET CA 


00723 


773240 




LAW 13240 




00724 


040632 




DAC NOEX 


/ABOUT 36 MSEC 


00729 


707702 




EEM 




00726 


220031 




LAC» CALOC 




00.727 


707704 




LEM 




00730 


700000 




lOT 


/SHOULD CAUSE 


00731 


700000 




lOT 


/BLOCK NUMBER Tq 


00732 


700000 




lOT 


/SHOW IN AC 


00733 


440632 




isi Noex 




00734 


600730 




JMP ,-4 


/TIME OUT 


00735 


707972 




DTRB*10 




00736 


504602 




AND (EBB IT 




00737 


740200 




SZA 


/END ZONE SET 


00740 


600756 




JMP SREZTA 


/YES TURN AROUND 


00741 


707552 




OTRa*10 




00742 


740001 




CMA 




0»743 


504600 




ANO (60BIT 




00744 


707544 




OTXA 


/RESET 00 IF NECESSARY 


00749 


750004 




LAS 




00746 


504611 




AND (17777 




00747 


741200 




SNA 


/TIMCOUT flR 


007S0 


600716 




JMP SRCiLP*3 


/WAIT FOR El TO TA 


00791 


440644 




ISI TIMCTR 




00752 


740001 




CMA 




00753 


300644 




ADO TIMCTR 




0«754 


741100 




SPA 


/TIMED OUT THIS olR 


00799 


600717 




JMP SRIiLP*4 


/NO 


00756 


707552 


SRtiTA 


OTRA*10 




00757 


740001 




CMA 


/IN CASE CO ALRDY"! 


00760 


504600 




ANO (GOBIT 




00761 


344601 




TAO (DlRBIT 




00762 


707544 




OTXA 


./TURN AROUND 


00763 


600716 




JMP SRE2LP*3 
.EJECT 
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TC029X 


TC02B1 










/READ 


DATA BOUNCE Of'r 


E? LOOP 


00764 


204612 


ROEiLP 


LAC (RDaTAF 




00765 


340631 




TAD UNFUNC 




00766 


707545 




DTLA 




00767 


777400 




8I.ENTH 


/LAM BLOCK WORD COuNT. 


00770 


040030 




DAC WCLOC 




00771 


750004 




LAS 




00772 


504607 




AND (70000 




00773 


344613 




TAD {BUFFR2-1 


/FOR EXTEnOEO McmORY BITS 


00774 


040031 




DAC CALOC 




00775 


200030 




LAC WCLOC 




0«776 


741200 




SNA 


/WC GO TO 


00777 


601002 




JMF .♦S 


/YES 


01000 


707561 




OTEF 


/ERROR FLG SET 


01001 


741000 




SKP 


/NO 


01002 


601005 




JMP .♦3 




01003 


707601 




DTOF 


/DECTAPE FLG 


01004 


600775 




JMP ,.7 


/»0 WAIT 


01005 


777500 




LAW -300 




01006 


040632 




DAC NOEX 




01007 


440632 




IS2 NOEX 


/TIME Safe to xor t 


01010 


601007 




JMP ,-1 


/STATUS A 


01011 


707572 




DTRB»10 




01012 


504602 




AND (eiB!T 




01013 


740200 




SZA 


/EH SET 


01014 


601022 




JMP ,♦6 


/YES TURN AROUND 


01015 


707552 




OT«A»10 




01016 


740001 




CHA 


/IN CASE CO CLRD 


01017 


504600 




AND (60BIT 




01020 


707544 




DTXA 




01021 


600767 




JHP R0flLP*3 




01022 


204572 




LAC (H0V6KW 




01023 


601020 




JMP .-S 

.EJECT 
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TC02SX 


TC02BI 


■"-.-■' . "^ 








/WRITE 


DATA BOUMCE OFF 


ti 






/SCOPE 


LOOP 




01024 


750004 


WDEELP 


LAS 




01025 


504614 




AND (7 




01026 


041160 




DAC PATNUM 




01027 


101077 




JMS GSTPAT 


/GENERATE' PATTErk 


01030 


204606 




LAC (SRCHrw 




, 01031 


340631 




TAO UNFUNC 




01032 


707545 




DTLA 


/START SRCH FWO 


01033 


204603 




LAC (BLKFNO 




01034 


040031 




DAC CALOC 




01039 


707561 




DTEF 


/WAIT FOR 


01036 


741000 




SKP 


/FLAGS 


01037 


601067 




JMP W0E2TA 


/TEST FOR EZ 


01040 


707601 




DTOF 




01,041 


601035 




JMP ,-4 




01042 


707561 




DTEF 




01043 


741000 




SKP 




01044 


601067 




JMP WOEZTA 


/SEE IF EE 


01045 


204615 




LAC (WRALL 




01046 


707544 




OTXA 


/CMNG TO WRI-TE DATA 


01047 


777400 




BLENTH 


/LAM -BLOCK WOK 


01050 


040030 




OAC WCLOC 




01051 


204603 




LAC (BUFFER-l 




01052 


341161 




TAO XTOFLO 


/aDQ extend BITS 


01053 


040031 




OAC CALOC 




01054 


707561 




OTEF 


/WAIT FOR FLGS 


01055 


741000 




SKP 




01056 


601061 




JMP ,*i 




01097 


707601 




OTOf 




01060 


601054 




JMP ,-4 




01061 


707552 




DTHa*10 


/IN CASE GO CLRO 


01062 


740001 




CMA 




01063 


504600 




AND (60SIT 




01064 


344615 




TAO (WRALL 




010W 


707544 




DTXA 


/CHNG BACK TO SEARCH 


01066 


601033 




JMP W0E2LP*7 




01067 


707572 


MOeZTA 


DTRB*10 




01070 


504602 




AND (EIBIT 




01071 


741200 




SNA 


/EH INTERRUPT 


01072 


601075 




JMP .♦S 


/NO 


01073 


204572 




LAC (MOVBKW 


/YES 


01074 


601065 




JMP WOEZTA"? 


/CHAMGE DIRECTIo^ 


01075 


204600 




LAC {509IT 




01076 


601065 




JMP WDEZTA-2 
.EJECT 





• • 
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TC02SX 


TC02B1 










/GENERATE 1 OF 8 STANDARD PATTERNS 


01077 


601077 


GSTPAT 


JMP . 




01100 


7774P0 




slenth 




01101 


040632 




DAC NDEX 




01102 


750004 




LAS 




01103 


504607 




AND {70000 




01104 


041161 




DAC XTDPLD 




0110S 


344603 




TAD (BUPFER"! 




01106 


040010 




OAC 10 




01107 


201160 




LAC PATNUM 




01110 


504614 




AND (7 




01111 


344616 




TAD (PATTBL 




01112 


040645 




DAC NOEXI 




01113 


201161 




LAC XTDFLD 




01114 


740200 




SZA 


/EXTENDED 


01115 


707702 




EEM 


/YES SET E 


01116 


620645 




JMP» NOEXI 




01H7 


601127 


PATTBL 


JMP PAT0 




01120 


601131 




JMP PATl 




01121 


601133 




JMP PAT2 




01122 


601135 




JMP PAT3 




01123 


601140 




JMP PAT4 




01124 


601142 




JMP PATS 




01129 


601144 




JMP PAT6 




01126 


601146 




JMP PAT7 




01127 


754000 


PAT0 


CLAiCLI. 




01130 


601150 




JMP 6ENPAT 




01131 


754001 


PATl 


CLCiCUi 




01132 


601150 




JMP CENPAT 




01133 


754002 


PAT2 


CLAISTl. 




01134 


601150 




JMP CENPAT 




01l3f 


204617 


PATS 


LAC (252525 




01136 


744000 




CLi. 




01137 


601150 




JMP CENPAT 




0U40 


204620 


PAT4 


LAC (525252 




01141 


601136 




JMP PAT3*1 




01142 


204621 


PAT5 


LAC (070707 




01143 


601136 




JMP PAT3*l 




01144 


204622 


PAT6 


LAC (707070 




01145 


601136 




JMP PAT3*1 




01146 


204617 


PAT7 


LAC (252525 




01147 


744002 




STL 
.EJECT 
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TC028X 


TC02B1 




01150 


062)010 


GENPAT 


DAC» 10 


01151 


440632 




ISE NOCX 


01152 


601155 




JMP .iS 


01153 


707704 




LEM. 


.01154 


621077 ■ 




JMP* GStpAT 


01155 


741400 




Sil 


; 01156 


740001 




CMA 


01157 


" 601,150 




JMP GENPAT 


011 60 


000000 


PATKlUM 





01161 


!;00000 


XTDFlD 



.EJECT 



/NOT DONE YET SEE IF CMp 



PAGE 18 



TCBSax 



TC02B1 



/TEST FOR CONSECUTIVE BLOCK 
/NUMBERS LENGTH Qf TAPE 

01162 100373 SRCHTS JMS REWQRV 

01163 100303 JMS NEWORV 

01164 601162 JMP ,-2 

01165 140634 FINDAL DZM RECORD 
0ll«6 140633 OiM OIRFlG 
01167 100416 JMS SEARCH 

01170 440634 ISZ RECORD 

01171 707554 OTXA+10 

01172 206377 LAC BLKFnO 

01173 040637 DAC LSTBLK 

01174 101272 JMS wTFLGS 
0117:5 601212 JM'P FINDS E 
0U7-6 206377 LAC B1.KFND 
011:77 4'4a636 ISE FRSFLG 
0if0i 54a634 SAO RECORD 
0ia0-l 601170 JMP FINDAL*3 
012182 100563 SRFERfi JMS SRERRO 
012fl3 104153 JMS ERRhlT 

01204 200634 LAC RECORD 

01205 440634 IS? RECORD 

01206 344605 TAD <1 

01207 540264 SAD EZBlOK 

01210 601216 JMP ,♦6 /YES 

01211 601167 JMP FINDAL*2 

01212 707572 FINDEi DTR8*10 

01213 504602 AND (EiSIT 

01214 741200 SNA /END ZONE 

01215 601202 JMP SRFERR /NO, 

01216 200634 LAC RECORD 

01217 540264 SAD E15L0K 

01220 741000 SKP /NO 

01221 601202 JMP SRFERR 

01222 100303 JMS NE^ORV 

01223 601165 JMP FINDAL 

01224 601226 JMP SRBACK 

01225 601202 JMP SRFERR 

■EJECT 



/MOVE TaoE In'To REVERSe E\'D ZO^E 



/BLOCK 
/FWO 



/COUMT FOR NEXT BLOCK 
/RESET ENABLES 



/WAIT For PROGRAM iNT 
/ERROR STATUS RETURN 

/COUNT BLOCKS READ 

/RECORD FOUND Ok 



/LAST BloCk on TAPE 



/READ DECTAPE STATUS 



ALL OTHER STATUS IS ERROR 



/END ZONE IN ERROR 



/SKIP N.I, IF ALL DRIVE DONE 



PitGE 19 



TC02BX 



TC08B1 







/SEARCH 


BKWDS riND 












/BLOCK 


NUHBERS DECREMENT FOR 










/LENGTH 


OF TAPE 








01226 


200263 


SRBACK 


LAC ENDBLK 




/LAST.BloCk CN'TAPE 




01227 


040634 




DAC RECORD 








01230 


777777 




LAW -1 








01231 


040633 




DAC DIRFLG 




/BACKWARDS 




01232 


100,416 


- 


JMS SEARCH 




/FIND IT 




01233 


707554 




OTXA*10 


/RESET ENABLES 




01234 


777777 




LAW -1 








01233 


340634 




TAO RECORD 




/LAST Block -i 




01236 


040634 




DAC RECORD 








01237 


206377 




LAC BLKFNO 








01240 


040637 




DAC LSTBLK 




/roR typeOuts 




01241 


101272 




JMS WTFlGS 




/WAIT For- INT, 




01242 


601257 




JMP BKW0E2 




/ERROR STATUS RETURN 




01243 


440,636 




182 FRSFLG 




/COUNT BLOCKS 




01244 


206377 




LAC BLKFNO 








01249 


540634 




SAO RECORD 




/RIGHT BLOCK 




01246 


601233 




JMP SRBACK*S 


/YES 1 


ajT FOR Next 




01847 


100563 


SRBERR 


JMS SRERRO' 




/ 




01250 


104153 




JMS ERRHLT 








012S1 


200634 




LAC 'RECORD 








01852 


344562 




TAD (777777 








01253 


040634 




DAC RECORD 








01254 


741100 




SPA 


/DONE 


BLOCK 




01253 


601263 




JMP .♦6 


/YES 






01,89.6 


601232 




JMP SRBACK*'' 








01857 


707572 


BKWOEi 


OTRB*10 


/READ 


DECTAPE STATUS 




01860 


504608 




AND (EIBIT 




/MASK For E! error 




01861 


741200 




SNA 


/E2 






01862 


601247 




JMP SRBERR 




/NO ALL OTHER STATUS IS 


ERROR 


01863 


200634 




LAC RECbRO 








01864 


740100 




SMA 


/PAST 


BLOCK 




01865 


601247 




JHP SRBERR 




/NO El WAS IN ERROR 




01266 


100303 




JMS NEWORV 




/TAKE N.Ii IF NOT DONE 




01267 


601226 




JMP SRBACK 




/ALL DRIVES 




01270 


601165 




JMP FINDAL 








01871 


601247 




JMP SRBERR 
.EJECT 
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TC028 


01272 


601272 


01273 


7B7552 


01274 


504623 


01275 


740200 


01276 


777770 


01277 


741200 


01300 


777670 


013131 


041542 


01302 


140007 


01303 


204624 


01304 


040002 


01305 


700042 


01304 


440007 


01307 


601306 


01310 


441542 


01311 


601306 


01312 


700002 


01313 


707552 


01314 


504600 


01315 


344625 


01316 


707544 


01317 


104124 


01320 


777777 


01321 


777777 


01322 


565700 


01323 


601651 


01324 


167700 


01325 


104447 


01326 


621272 


01327 


707561 


01330 


741008 


01331 


621272 


01332 


707601 


01333 


621272 


01334 


707572 


01335 


504626 


0133.6 


741200 


01337 


621272 


01340 


700314 


01341 


504574 


01342 


740200 


01343 


441272 


01344 


621272 



TC02S1 
/WAIT 

wtplgs 



WTPION 



WTTOUT 



WTTOK 



'10 

-110 

CLF'CTR 

7 

JWTTOK 
2 

7 
.-1 

CCfCTR 
.-3 



FOR INTERRUPT 
JMP . 
OTRA*10 
AND (7000 
SZA 
LAW 
SNA 
LAW 
DAC 
OZM 
LAC 
DAC 
ION 
ISZ 
JMP 
IS2 
JMP 

I or 

OTRA*10 

AND (COBIT 

TAD, (INHCLR 

DTXA 

JMS TYPTEX 

777777 

777777 

565700 

601651 

167700 

JMS TYSTAB 

JMP« WTruGS 

OTCF 

SKP 

JMP* WTFLGS 

OTOf 

JMP* WTFLGS 

OTRB410 

AND <OTFBIT 

SNA 

JMP* WTFLGS 

lORS 

AND (200 

SZA 

1S2 WTFLGS 

JMP* WTFLGS 

•EJECT 



TEST FLAGS AND BIT i,- OF lORS 
Vl^T ROUTlfvE IS iSh ? 
/READ STAT A 

/»^ASK Orr F 
/IS IT MOVE .FUNTION 
/NO 5 SECOND WAIT 
/MOVE GET LAW »110 

/MOVE Is 45 SECONDS 



/HERE IF NO INTERRUPT 



/STOP TAPE 

/NO P,I, 

/TYPE OUT 

/NO 
/P.I 
/, EOM 

/FOLLOWED BY OPERATION 
/RETURN AFTER iNT 

/Er « 1 

/OTF « 



/OTF DOES NOT ■ i 



/DOES BIT 10 OF lORS ■ OTF 

/SKIP For all ok exit 



PACE 21 



TC02BX 



TCBSBl 



01343 
?1346 

01347 
01390 
01351 
01352 
01353 
01354 
01355 
01356 
01 35 7 
01360 
01361 
01362 
01363 
01364 



•601345 
204627 
041273 
204630 
040010 
204631 
060010 
544632 
601360 
344575 
601353 
204638 
040044 
204634 
040051 
6213^5 



/SELECTION IS To RUN INTERRUPTS 
/OFF From API Instead or pi 

/SET UP kJTFl.CS TO JMP TO WAIT AP 



APISET 



J«P , 

LAC (JMP WAITAP /INSTEAD Of 

DAC WTFLGS*! 

LAC (37 

OAC 10 /TO STORE JMS 

LAC (JMS CHUERR /GET FIRST API ERROR JMS 



/O'TRA MAKE IT A jMP 



DAC* 10 



/STORE INTO CHAN LOC 



SAD (JMS CH37ER /Stj UP Ai.L CHAN 



JMP ,*i 
TAD (2 
JMP .-4 

LAC (JM5 OTAPI 
OAC 44 



/YES SET UP OT an.D STC 

/ERR JMS *Z 

/STORE IT 

/SET UP OECTAPE 

/API CHANNEL 



LAC (JMS CLfAPI /API CHANNEL 
OAC 51 /RT.C API CHANNEL 

JMP» APISET /EXIT 



01365 
0^366 
01367 
01370 
01371 
01S72 
013,73 
0tS>4 
01379 
01376 
01S77 
01400 
01401 
01402 
01403 
01404 
01405 
01406 
01407 
01410 



707552 
504623 
740200 
777324 
741200 
773614 
041942 
744000 
777777 
040007 
140000 
204639 



204566 
700044 
700042 
705504 



6014*06 
740040 



/STARTING SELECTION WAS TO USE 

/API INSTCAO OF PI 

/ 

WAITAP OTRA*10 

AND (7000 

SIA 

LAW -454 

'SNA 

t.AW -4164 

OAC CLr(;TR 

CU 

LAW -1 

OAC 7 

DIM 

LAC (WTAPI+2 

OAC 2 

LAC (400000 

ClON 

ION 



WTAPI 



ISA 

CAL 
JMP 
HLT 



/5 SEC COUNT NOT MOVE 

/49 SEC COUNT MOVE 
/TO COUNT CLOCK INT 



/FOR CLOCK TO iNT 



ON 



/TURN CLOCK 
/Pir ON 
/ENABLE API 
/WAIT FOR BREAKS 



/GOT A PROGRAM ImTERRUPT ERROR 



/IF HALT IS EXECUTES PROBABLY CAUSED BY 
/PROGRAM INTERRUPT INSTEAD OF API 
/CHECK ADDRESS TO SEE IF IT POINTS TO mLT 
.EJECT 
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TC028X 



TC02B1 







/API INTERRUPT ON' 






/IS JMS 


i TO DTAPI 


2K11 


601411 


DTAPI 


JMP . 


2XA12 


700002 




lOF 


Z1413 


705514 




ISA*10 


01414 


703304 




DBK 


01415 


201411 




LAC DTAPI 


31416 


544636 




SAO (WTAPI 


01417 


741000 




SKP 


01420 


703304 




OBK 


01421 


200000 




LAC 


01422 


740200 




Sik 


01423 


740040 




HLT 


01424 


601327 




JMP WTTOK 


01425 


601425 


/ 

CH0ERR 


JHP . 


01426 


740040 




HLT 


01427 


601427 


CHIERR 


JMP , 


01430 


740040 




HLT 


01431 


601431 


CH2ERR 


JMP . 


01432 


740040 




HLT 


01433 


601433 


CH3ERR 


JMP , 


01434 


740040 




HLT 


01435 


601435 


CH4ERR 


JMP , 


01436 


740040 




HLT 


01437 


601437 


CH5ERR 


JMP . 


01440 


740040 




HLT 


01441 


601441 


CH6ERR 


JMP . 


01442 


740040 




HLT 


01443 


601443 


CH7ERR 


JMP . 


01444 


740040 




HLT 


01445 


601445 


CH10ER 


JMP , 


01446 


740040 




HLT 


01447 


601447 


CHllER 


JMP . 


01450 


740040 




HLT 


01451 


601451 


CH12ER 


JMP . 


01452 


740040 




HLT 


01453 


601453 


CHISER 


JMP . 


01454 


740040 




HLT 
.EJECT 



CHANNEL 44 (DECTAPE) 



/DISABLE PIE 

/TURN API OFF 

/CLEAR DECTAPE ACTIVE 

/COME From clock . 

/NO 

/CLEAR CLOCK FLAG. 

/PI OCCUR ALSO 

/API DID'NT BL0C'< PI 

/TEST OecTaPE FLAGS 

/API ERROR 
/EXECUTED JMS II^ 40 

/EXECUTED 41 

/EXECUTED 42 

/EXECUTED 43 
/CAN'T GET HERE 
/44 GOES TO DTAPI 

/EXECUTED 45 

/EXECUTED 46 

/EXECUTED 47 

/EXECUTED 50 

/CAN'T GET HERE CLOCK GOES TO CLFAPI 

/EXECUTED 51 

/EXECUTED 52 

/EXECUTED 53 
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TC029X 


.TC02B1 








01455 


601455 


CH14ER 


JMP 






01456 


740040 




HIT 


/EXECUTE 


54 


01457 


601457 


CH15ER 


jMP. 






01460 


740040 




HLT 


/EXECUTE 


55 


01461 


601461 


CH16ER 


JMP 






01462. 


740040 




HLT 


/EXECUTE 


56 


01463 


601463 


CH17ER 


JMP 






01464 


'740040 




HLT 


/EXECUTE 


57 


01465 


601465 


CH20ER 


JMP 






01466 


740040 




HLT 


/EXECUTE 


60 


01467 


601467 


CH21ER 


JMP 






01470 


7400.40 




HLT 


/EXECUTE 


61 


01471 


601471 


CH22ER 


JMP 






01472 


740040 




HLT 


'., /EXECUTE 


62 


01473 


601473 


CH23ER 


JMP 






01474 


740040 




HLT 


/EXECUTE 


63 


01475 


601475 


CH24ER 


JMP 






01476 


740040 




HLT 


/EXECUTE 


64 


01477 


601477 


CH25ER 


JMP 






01500 


740040 




HLT 


/EXECUTE 


65 


01501 


601901 


CH26ER 


JMP 






' 01502 


740040 




HLT 


/EXECUTE 


66 


01903 


601903 


CH27ER 


JMP 






01904 


740040 




HLT 


/EXECUTE 


67 


01505 


601505 


CH30ER 


JMP 






01906 


740040 




HLT 


/EXECUTE 


70 


01907 


601507 


CH31ER 


JMP 






01510 


740040 




HLT 


/EXECUTE 


71 


01911 


601511 


CH32ER 


JMP 






eim 


740040 




HLT 


/EXECUTE 


72 


01913 


601913 


CH33ER 


JMP 






01914 


740040 




HLT 


/EXECUTE 


73 


01515 


601515 


CH34ER 


JMP 






01916 


740040 




HLT 


/EXECUTE 


74 


01917 


601517 


CH35ER 


JMP 






01920 


740040 




HLT 


/EXECUTE 


75 


01921 


601521 


CH36ER 


JMP" , 






01922 


740040 




HLT 


/EXECUTE 


76 


01523 


601523 


CH37ER 


JMP , 






01924 


740040 




HLT 


/EXECUTE 


77 


01525 


601525 




JMP , 
.EJEC 


:t 
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TC02BX 



TC0281 



01526 
0t527 
01530 
01531 
01532 
01533 
01534 
01M9 
01536 
01537 
01540 
01541 



01543 
01544 
01545 
01546 
01547 
01550 
01551 
01552 
01553 
■0153:4 
01555 
01556 
01957 
01560 
01561 
0l5i62 
01563 
01564 
01565 
01566 
015«7 
01570 
01571 
01572 
015 7'3 
01574 
01575 
01576 
01577 
01600 
01601 
01602 
01603 
01604 
01605 



601526 
441542 
601535 
700002 
705514 
703304 
601313 
777777 
040007 
700044 
703344 
621526 



/CUOCK 
/COMES 
/ 

CLF'API 



INTERRUPT TROm APj 
TO CLFAPI 



01542 000000 



750004 

504614 

041160 

750004 

504626 

740200 

601622 

101077 

160340 

160341 

160342 

100303 

601553 

204605 

042260 

140633 

220342 

340633 

040634 

100416 

204615 

707544 

777400 

040030 

204603 

341161 

040031 

101752 

601570 

100303 

601563 

200633 

042261 

740001 

040633 



JMP , 

ISZ circTR 

JMP .♦S 

lOF/ 

lSA+10 

OBK ■ 

JMP WTTOUT 

LAW- -1 

DAC 7 

CLON 

OBR 

JMP« CLFAPI 



/, 

CLf-CTR 

/TC02 

/WRITE 

/WRITE 

WRARD 



/WAITED «AX TJM! 
/NO 

/TIMED OUT 

/DISABLE API AND PlE 
/CLEAR CLOCK' ACTIVE 

/TYPEOUT 

/SET FOR CLOCK InT 
/ENABLE CLOCK 
/CLEAR CLOCK ACTIVE 
/GO BACK TO WTApi 



WRFIRS 



BASIC 

DATA 
AND R 
LAS 
AND 
OAC 
LAS 
AND 
SZA 
jMP 
JMS 
DiH* 
DiM* 
OZM« 
JMS 
JHP 
LAC 
DAC 
OZM 
LAC 
TAO 
DAC 
JMS 
LAC 
DTXA 
BLCN 
DAC 
LAC 
TAO 
DAC 
JMS 
JMP 
JMS 
JMP 
LAC 
DAC 
C«A 
DAC 



/TO COUNT CLOCK jNTR 
EXERCISER TAPE 2 
PATTERNS. TO 7 FROM SWITCHES 
EAD DATA LENGTH 16 BLOCKS OR 1 BLOCK OF TAPE SWITCHES 

(7 

PATNUM 



(100 

ROUOOP-Z 

GSTPAT 
POSITN 
DIRECT 
LSBLDK 

NEWDRV 

.-♦ 

(1 

BUKINC 

OIRrLG 
LSBLOK 

DIRFLC 

RECORD 

SEARCH 

(WRALL 

TH 

WCLOC 

(8UFFER-1 

XTOFLO 

CALOC 

WRSWS 

,-7 

NEWORV 

WRFIRS 

DIRFLG 

WRPASO 



/GENERATE PATTERN 
/0 DRIVE TABLES 
/DO ALL DRIVES 

/GET LAST WRITE 
/FWD IS 1 AHEAD 

/CHNC TO WRITE DaTa 
/LAM -WC 



/TEST SwiTcM OP 
/NOT DONE ALL 

/DONE All orives 

/MO DO !v«lTE PASS ON MEXT DRIVE 



DIRFLG 



/SET UP OTHER 
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TC02B 


01606 


202260 


01607 


740001 


01610 


344605 


01611 


042260 


01612 


750004 


01613 


504567 


01614 


740200 


01615 


740040 


01616 


750004 


01617 


504564 


01620 


740200 


01621 


: 601714 


01622 . 


777777 


01623 


042257 



TC02B1 



lAC 


BLKINC 


CMA 




TAO 


(1 


OAC 


BLKINC 


LAS 




AND 


(1000' 


SZA 




HLT; 




LAS^ 




AND 


(40 


SZA 




JMP 


RDTERM 


LAW 


"I 


DAC 


RPASFL 



"/DIRECTION 



/WRITE ONLY 
/YES 

/SET 1ST RO FLC 



.EJECT 
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TC028X 


TC02B1 








/READ LOOP LENGTH Of 


tapf 1 OR 16 Blocks 


01624 


220343 


RDLOOP LAC« POSIT?J 


/GET NEXT Block 


01625 


040634 


OAC RECORD 


/NUMBER 


01626 


100416 


JMS SEARCH 


/FIN? IT 


01627 


204637 


LAC (ROAlL 




01630 


707544 


DTXA 


/TO RD DATA 


01631 


777400 


blenth 


/LAM-WC 


01632 


040030 


DAC WCLOC 




01633 


204613 


LAC (BurrRS'i 


/SET CA AMD WC 


01634 


341161 


TAD XTDFL3 




01635 


040031 


DAC CALOC 




01636 


102046 


ROFIRS JMS RDSWS 


/WAIT Flags rd sws 


01637 


601672 


JMP ROIENO 


/LAST BLOCK RD 


01640 


707554 


OTXA*10 


/RESET ENABLES 


01641 


777400 


BUENTH 




01642 


040030 


DAC WCLOC 


/NEXT Block 


01643 


204640 


LAC (BUFFRS-l 


/INTO 3RD BUFFS 


■01644 


341161 


TAD XTDFLD 




01645 


040031 


DAC CALOC 




01646 


102142 


JMS COOATA 


/COMPARE WRITTEN 


01647 


007000 


BUrFR2 


/AGAINST READ 


01650 


200635 


LAC TAPONT 


/NUMBER OF NEXT 


01651 


040634 


DAC RECORD 


/BLOCK IN SEQUENCE 


01652 


102132 


JMS RDERCK 


/CHECK ERRORS 


01653 


601626 


JMP R0L00P*2 


/AND RESTART 


01654 


102046 


JMS ROSWS 


/WAIT DonE BLOCK 


01653 


601672 


JMP RDLENO 


/RD ENDED 


01656 


707554 


DTXA*10 


/RESET ENABLES 


01657 


777400 


BLENTH 




01660 


040030 


DAC WCLOC 


/SET WC 


01661 


204613 


LAC (BUFFR2-1 


/AND CA 


01662 


040031 


DAC CALOC 




01663 


102142 


JMS CODATA 


/COMPARE DATA 


01664 


007400 


BUFFRS 


/AGAINST 3RD BUF 


01665 


200635 


LAC TAPONT 


/NUMBER oF NEXT 


01666 


040634 


DAC RECORD 


/BLOCK IN SEQUENCE 


01667 


102132 


JMS RDERCK 




01670 


601626 


JMP RDL00P*2 


/ERRORi RESYNC 


01671 


601636 


JMP ROFIRS 
.EJECT 


/NO ERROR 
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TC028 


01672 


777401 


01673 


340031 


01674 


504611 


01675 


041677 


01676 


102142 


01677 


007000 


01700 


100303 


01701 


601624 


01702 


200633 


01703 


740001 


01704 


040633 


01705 


202260 


01706 


740001 


01707 


344605 


01710 


042260 


0irn 


442257 


01712 


741000 


01713 


601624 


01714 


750004 


01715 


504567 


01716 


740200 


01717 


740040 


01720 


750004 


01721 


504626 


01722 


740200 


01723 


601622 


01724 


200633 


01725 


740200 


01726 


601563 


01727 


220342 


01730 


540264 


01731 


741000 


01732 


601563 


01733 


104276 


01734 


201160 


01735 


344641 


01736 


104172 


01737 


104124 


01740 


004S56 


01741 


447700 


01742 


750004 


01743 


504574 


01744 


741200 


01745 


601543 


01746 


201160 


01747 


344605 


01750 


504614 


01751 


601545 



TC0281 

/LOOP BACK AND WAIT 2ND BUTFS 
/TO FILL UP 
ROLENO BLENTH*! 

TAD CALOC 

AND (17777 

DAC ,♦2 

JMS COOATA 

BUFFR2 

JMS NCWDRV 

JMP ROI.OOP 

LAC OIRFLC 

CMA 

DAC OIRFLG 

LAC BLKINC 

CMA 

TAD (1 

DAC BUKINC 

ISE RPASFL 

SKP 

JMP RDLOOP 
ROTERM LAS 

AND (1000 

SiA 

HUT 

LAS 

AND (100 

SiA 

jmp roloop-z 
lac dirflg 

SiA 

JMP WRFIRS 

LAC* LSBLOK 

SAO EiBLOK 

SKP 

JMP WRFIRS 

JMS TYCRLF 

lac patnum 

TAD (260 

JMS TYPCHA 

JMS TYPTEX 

4556 

447700 

LAS 

AND (200 

SNA 

JMP WRARD 

LAC PATNUM 

TAD (1 

AND (7 

JMP WRAR0*2 

.EJECT 



/CHECK LAST DATA 



/DONE Read pass on all o«ives 

/NO START READ PASS ON NEXT 



/MAKE CONSTANTS 
/OTHER DIRECTION 



/READ BOTH DIRECT 
/YES 



/RD ONLY 



/DONE LENGTH TAPE 
/DONE 1 PASS 
/DO NEXT SEQUENCE 



/EN 
/D EOM 



PACE 28 


TC02BX 


TC02B1 

/WAIT 
/TEST 


FOR WRITE FLAGS 
SWITCH OPTIONS 




01752 


601752 


WF^SWS 


JMP . 




01753 


101272 




JMS wtflgs 


/WAIT FOR FLGS 


01754 


602027 




JMP WREZTS 


/NOT NORMAL STATfS 


01755 


200030 




UAC WCUOC 




01756 


740200 




SZA 




01757 


602040 




JKP WRSERR 




01760 


200634 




LAC RECORD 




01761 


060340 




DAC» POSITN 


/NEW P0SITl0^ 


01762 


342260 




TAD BLKInC 




01763 


040634 




DAC RECORD 


/NEXT TO BE WRITTEN 


017:64 


750004 




LAS 




017*5 


504642 




AND (30 




017*6 


7412f0 




SNA 


/LENGTH OF TAPE 


01767 


621752 




JMP* WRSWS 


/YES GET OUT 


0177« 


5«4643 




AND (20 




01771 


740200 




SZA 


/32 BLOCKS 


01772 


602003 




JMP WRTERM 


/NO 1 BLOCK 


01773 


200633 




LAC DIRFLG 




01774 


504556 




AND <17 




01775 


040632 




OAC NOCX 




01776 


200634 




LAC RECORD 




01777 


504556 




AND (17 


/DONE 16 


02000 


540632 




SAD NDEX 


/YES 


02001 


741000 




SKP 




02002 


621752 




JMP» WRSWS 


/NOT REACHED 16 


02003 


707552 


WRTERM 


DTRA*10 




02004 


504600 




AND (GOBIT 




02005 


707544 




DTXA 


/STOP TAPE 


02006 


441752 




I Si WRSWS 


/STEP EXIT 


02007 


200633 




LAC DIRFLG 




02010 


740200 




SIA 




02011 


621752 




JMP» WRSWS 




02012 


200634 




LAC RECORD 


/UPDATE LAST BLK 


02013 


060342 




DAC» USBLOK 


/IF GOING FORWARD 


02014 


621752 




JMP* WRSWS 








/IF SM 


10*1 AND MOTION 


NOT»0 IGNORE ERRORS 


02015 


602015 


goclrd 


jMf , 




02016 


750004 




LAS 




02017 


504644 




AND (400 




02020 


741200 




SNA 




02021 


602025 




JMP ,*4 




02022 


707552 




DTRA*10 




02023 


504600 




AND (GOBIT 




02024 


741200 




SNA 




02025 


442015 




ISi goclrd 




02026 


622015 




JMP* GOCLRD 
.EJECT 
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TC02BX 


TC02B1 






02027 


707572 


wreets 


DTRB*10 




02030 


504602 




AND (EZ8IT 


/EMD ZONE 


02031 


741200 




SNA 


/ERROR 


02032 


602040 




JMP WRSERR 


/NOT E2 STATUS ER« 


02033 


200634 




LAC RECORD 




02034 


540264 




SAD EEBlOK 


/END OF TAPE 


02035 


602003 




JMP WRTERM 


/FORWARD 


02036 


741100 




SPA 


/END OF TAPE 


02037 


602003 




JMP WRTERM 


/BACK WARD 


02040 


102015 


WRSERR 


JMS GOCLRO 




02041 


601760 




JMP WRSmS«6 




02042 


104423 




JMS STPTAP 




02043 


104363 




JMS TYWOAT 




02044 


104153 




JMS ERRHL.T 




0204S 


601563 


/WAIT 
/TEST 


JMP WRflRS 
FOR READ DONE 
SWITCH OPTIONS 




02046 


602046 


RDSWS 


JMP . 




02047 


142262 




D2M RSEFLG 


/CLR ERR FLC 


02050 


101272 




JMS WTFLGS 




02051 


602105 




JMP RDEZTS 


/STATUS ERR 


02052 


200030 




LAC WCtOC 




02093 


740200 




S2A 


/WC GO TO 


02054 


602116 




JMP ROSERR 


/NO ERROR 


02095 


200634 




LAC RECORD 




02096 


060340 




OAC* POSITN 


/NEW POSITION 


02057 


342260 




TAD BLKINC 




02060 


040635 




DAC TAPONT 




02061 


750004 




LAS 




02062 


504642 




AND (30 


/LENTH OF TAPE 


02063 


741200 




SNA 


/0« SHORTER 


02064 


602077 




JMP ROSW 




02069 


504643 




AND (20 




02066 


740200 




SZA 


/I BLOCK 


02067 


602101 




JMP R0SW*2 


/YES 1 ONLY 


02070 


200633 




LAC OIRFLG 




02071 


504556 




AND (17 


/SEE If DONE 


02072 


040632 




DAC NOEX 


/16 BLOCKS 


02073 


200639 




LAC TAPONT 




02074 


504956 




AND (17 




02075 


540632 




SAD NDCX 




02076 


602101 




JMP ,♦3 
.EJECT 


/NOT DONE 16 
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TC02B 


02077 


442046 


02100 


622046 


02101 


707552 


02102 


504600 


02103 


707544 


02104 


622046 


02105 


707572 


02106 


504602 


02107 


741200 


02110 


602116 


02111 


200634 


02112 


540264 


02113 


602101 


02114 


741100 


02115 


602101 


02116 


102015 


02117 


602055 


02120 


104423 


02121 


104340 


02122 


104522 


02123 


200030 


02124 


740200 


02125 


104330 


02126 


104447 


02127 


777777 


02130 


042262 


02131 


602055 


02132 


602132 


02133 


442262 


02134 


442269 


02139 


602140 


02136 


442132 


02137 


622132 


02140 


104153 


02141 


622132 



TC02B1 

RDSm 



RDEETS 



RDSERR 



RDERCK 



ISZ RDSWS 


/STEP Exit 


JMP» ROSWS 




DTRA+10 




AND (GOBIT 


/STOP TAPE 


DTXA 




JMP« ROSWS 


/DONE All xit 


DTRB*10 




AND (EHBIT 




SNA 


/EZ INT 


JMP RDSERR 


/NO STAT ERR 


LAC RECORD 




SAO EZBLOK 


/EOT FWD 


JMP RDSW*2 


/YES 


SPA 


/EOT BKWD 


JMP RDSW+2 


/YES 


JMS GOClRD 




JMP RDSWS*7 




JMS STPTAP 




JMS TYRDAT 




JMS WRIOIR 




lac WCLOC 




SiA 




JMS TYPWC 




JMS TYSTAB 




LAW -1 




OAC RSEFLG 


/SET status flag 


JHP R0SWS*7 




JMP , 




ISZ RSEFLG 


/STATUS ERR 


ISZ coflag 


/COMPARE ERRO 


JMP ,*3 


/ONE OR OTHER 


ISZ ROERCK 


/NO ERROR 


JMP« RDERCK 


/SKIP EXIT 


JMS ERRHLT 




JMP» RDERCK 




.EJECT 
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TC02B 


02142 


602142 


02143 


777777 


02144 


042265 


02145 


777400 


02146 


040632 


02147 


204610 


02150 


341161 


02151 


042263 


02152 


222142 


02153 


341161 


02154 


042264 


02155 


442142 


02156 


750004 


02157 


904644 


02160 


740200 


02161 


622142 


02162 


201161 


02163 


740200 


02164 


707702 


02165 


222263 


02166 


562264 


02167 


602204 


02170 


200633 


02171 


344609 


02172 


342261 


02173 


740200 


02174 


602204 


02175 


222263 


02176 


740001 


02177 


562264 


02200 


741000 


02201 


102221 


02202 


102212 


02203 


602179 


02204 


222263 


02205 


562264 


02206 


741000 


02207 


102221 


02210 


102212 


02211 


602204 



TC02B1 
CODATA 



cosamc 



JMP . 

LAW -1 

DAC COFlAG 

BLENTH 

DAC NDEX 

LAC (BUFFER 

TAD XTDFLD 

DAC GEOATA 

LAC» CODATA 

TAD XTDFLD 

DAC IMDATA 

ISZ CODATA 

LAS 

AND (400 

SZA 

JMP» CODATA 

LAC XTDFLD 

SZA 

EEM 

LAC* GEOATA 

SAO» INDATA 

JMP COSAME 

LAC OIRFLG 

TAD (1 

TAD WRPaSD 

S2A 

JMP COSAME 

LAC« GEOATA 

CMA 

SAO* INDATA 

SKP 

JMS COERRO 

JMS TSCTRS 

JMP ,-6 

LAC* CEDATA 

SAO* INOATA 

SKP 

JMS COERRO 

JMS TSCTRS 

JMP COSAME 

•EJECT 



/-256 



/■GENERATED ADDRESS 



/INPUT ADDRESS 



/DELETE ERROR CHECK 



/SAME DATA 
/YES 



/RD OPOSITE write 
/NO 



/COMPLEMENTS ■ 
/YES 



/WORDS ■ 

/YES 

/COMPARE ERROR 
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TC02BX 


TC02B1 












/INCREMENT COMPARE ADDRESS 








/EXIT IF LAST WORD 






02212 


000000 


TSCTRS 









02213 


442263 




ISZ GEDATA 






02214 


442264 




ISZ INOATA 






02215 


440632 




ISZ NDEX 






02216 


622212 




JMP» TScTRS 






02217 


707704 




LEM 






0'22^J0 


622142 




JMP» CDDATA 






02221 


602221 


COERRO 


JMP . 






02222 


442265 




ISZ coflag 


/FIRST ERROR 


022r23 


602227 




JMP .♦^ 


/NO 




02224 


104423 




JMS STPTAP 




/STOP Tape type hdR 


02'S21 


1043 4f 




JMS TYRO AT 






0'22S* 


1*4522 




JMS W«IDIR 




/TVP WRITE. DIR 


er2l2? 


7500^4 




LAS 






022M 


n*m2 




AND (100000 




/TYPE All error 


02231 


741200 




SNA 


/YES 




BMK 


602237 




JMP ,*5 






0221S3 


202265 




LAC COFLAG 






02234 


344645 




TAD (777774 






02235 


740100 




SMA 


/DONE 


4 ERR TYPE 


02236 


622221 




JMP» COERRO 


/YES STOP AT 4 


02237 


104276 




JMS TYCRLF 




/SPACE BETWEEN PAIRS 


02240 


222263 




LAC* GEDATA 






02241 


104536 




JMS TYOATA 




/DATA WRITTEN 


02242 


104124 




JMS TYPTEX 






02243 


006762 




6762 


/WR 




02244 


000077 




77 


/EOM 




02248 


202263 




LAC GEDATA 




/WRITE ADDRS 


02246 


104947 




JMS tYPADR 






02247 


222264 




LAC» INOATA 


/DATA 


READ 


02250 


104536 




JMS TYOATA 






02251 


104124 




JMS TYPTEX 






022:52 


006244 




6244 


/RD 




02253 


000077 




77 


/EOM 




02254 


202264 




LAC INDATA 




/aors Data read 


02259 


104547 




JMS TYPADR 






02256 


622221 




JMP* COERRO 






02257 


000000 


RPASFL 





/COUNT 


r READ PASSES 


02260 


000000 


blkinc 









022-61 


000000 


MRPASD 





/SAVE 


LAST WRITE DiR 


02262 


000000 


rseflc 





/READ 


STATUS ERROR FLAG 


02263 


000000 


GEOATA 









02264 


000000 


INOAfA 









02269 


000000 


C OF LAG 



•EJECT 







PASE 33 



TC02BX 



TC02B1 



02266 
02267 
02270 
02271 
02272 
02273 
02274 
02275 
02276 
02277 
02300 
02301 
02302 
02303 
02304 
02309 
02306 
02307 
02310 
02311 
02312 
02313 
02314 
02319 
02316 
02317 
02320 
02321 
02322 
02323 
02324 
02329 
02326 
02327 
02330 
02331 
02332 
02333 
02334 
02339 
02336 
02337 
02340 
02341 



/PARITY GENERATION AnD 
/WRITES REV CK SUMS TO 
/(77 GOING BACKWARPS) 2 
/GENERATE PATTERNS 3RD 
/TEST CHECKSUMS 4 READ 
/FOR NO PARITY ERRORS 
/5 GENERATE WRONG PARIT 
/6 READ BOTH DIRECTIONS 



Checking tirst pasS 


NO PASS 

Pass 

both directions 

y in block 
expect parity errors 





/STEP 1 WRITE REVERSE 


CHECKSUMS TO 


200265 


PARTST LAC ENDBLK 




040634 


DAC RECORD 




777777 


LAW -1 




040633 


DAC OIRFLC 


/BKWOS 


100416 


JMS SEARCH 


/FIND BLOCK 1077 


204637 


LAC (3000 




707944 


PARLPl DTXA 




777400 


blenth 


/CHANGE TO READ 


040030 


DAC WCLOC 


/DUMMY READ 


204613 


LAC (BUFFR2''l 


/TO GET TO 


040031 


DAC CAUOC 


/REVERSE CHECKSUM 


200030 


LAC WCLOC 




740001 


CMA 




740200 


SZA 


/I WORD LEfT TO READ 


602301 


JMP ."S 




740001 


CM* 




046400 


DAC BUFFER 


/ALL I'S TO WRITE 


204603 


LAC (BUFFER"! 




040031 


DAC CALOC 


/SET ADDRESS 


777776 


LAW -2 




040030 


DAC WCLOC 


/2 WORDS 


204646 


LAC (17000 


/SRCH To WRITE ALL 


707944 


DTXA 


/CHANGE TO WRITE AC2 


101272 


JMS WTFLGS 




602764 


JMP WACRR0 


/STATUS ERROR 


200030 


LAC WCLOC 




740200 


SZA 


/WC « 


602764 


JHP WAERR0 


/NO STATUS ERROR 


777777 


LAW -1 




340634 


TAO RECORD 


/BLOCK -1 


040634 


DAC RECORD 




741100 


SPA 


/DONE YET 


602331 


JMP ,*S 


/YES 


204646 


LAC (17000 




602274 


jMP PARLPl 


/CHAMGE BACK TO rEaD 


204600 


LAC (GOBIT 




707544 


DTXA 


/STOP TAPE 


100303 


JMS NEWORV 


/DOME ALL DRIVES 


602266 


JMP PARTST 


/NO no N'EXT 


750004 


LAS 




504567 


AND (1000 


/El^'D OF PASS HLT 


740200 


SEA 




740040 


HLT 


/HLT END OF PASs 


750004 


LAS 




504564 


AND (40 


/REPEAT WRIXE Set 


740200 


SEA 





PAGE 34 TC028X TC02B1 

02344 602266 JMP PARTST /STAV IN STEP 1 

.EJECT 
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TC029X 



TC02B1 



02345 


140634 


02346 


140633 


02347 


204647 


02390 


040010 


02351 


146400 


02352 


100416 


02353 


204615 


02354 


707544 


02355 


204603 


02356 


040031 


02357 


777777 


02360 


040030 


02361 


101272 


02362 


603001 


02363 


200030 


02364 


740200 


02365 


603001 


02366 


200634 


02367 


060637 


02370 


060340 


02571 


440634 


02372 


220010 


02373 


046400 


02374 


750200 


02375 


602354 


02376 


707544 


02377 


204603 


02400 


040031 


02401 


777777 


02402 


040030 


02403 


101272 


02404 


603005 


02405 


200634 


02406 


060342 


02407 


060340 


02410 


440634 


02411 


206400 


02412 


344650 


02413 


741200 


02414 


204651 


02415 


046400 


02416 


544651 


02417 


602422 


02420 


504652 


02421 


741200 


02422 


602430 


02423 


206400 


02424 


544652 


02425 


602432 



/PARITY TEST STEP 2 
/WRITE PARITY PATTERNS 
/FIRST SLIDING BITS THEN 
/A COUNT PATTERN 
PARTS2 D2M RECORD 

OZM OIRFLC 

LAC (PARTBL 

DAC 10 

OZM BUFFER 

JMS SEARCH 

LAC (5000 

parwlp otxa 

lac (buffer'' 
oac caloc 

LAW -1 
OAC WCLOC 
JMS WTFLGS 
JMP WOERR0 
LAC WCIOC 
SZA 

JMP WDERR0 
LAC RECORD 
DAC» LSTBLK 
DAC» POSITN 
ISZ RECORD 
LAC» 10 
OAC BUFFER 
SZAICLA 
JMP PARWLP 
PARWL2 OTXA 

LAC (BUFFER-: 
DAC CALOC 
LAW «1 
DAC UCLOC 
JMS WTFLGS 
JMP WOERRl 
LAC RECORD 
DAC« LSBLOK 
OAC* POSITN 
IS2 RECORD 
LAC BUFFER 
(10000 



TAD 

SNA 

LAC (10100 

DAC BUFFER 

SAO (10100 

JMP ,♦3 

AND (7700 

SNA 

JMP .♦6 

LAC BUFFER 

SAO (7700 

JMP ,*'5 

•EJECT 



/START BLOCK H 



/FIXED PATTERNS 
/FIRST IS 



/WRITE DATA 

/I WORD 

/WDATA STAT ERR 

/WC GO PAST 
/YES ALSO ERROR 



/DONE ALL FIXED 

/NO 

/WRITE INCR 

/PATTERNS 

/000000 TO 
/777700 

/I WORD PER BLOCK 



/NEW BLOCK 
/NEW POSITION 

/SET LAST PAT 
/•I TO UPPER 6 
/GONE 00 TO 77 

/YES STaT 0101 TO 7777 



/IN DOUBLE INCREMENT 
/YES 



/DONE To 777700 



/YES 



'AGE 36 


TC-02B 


02426 


344626 


02427 


046400 


22430 


750020 


224:31 


6'02376 


024vS2 


204600 


02433 


707544 


02434 


100303 


.02435 


6.«Z345 


82436 


750004 


02437 


* 504 56 7 


0.2440 


740200 


m^i 


74M40 


02.442 


#50t04 


0M43 


v50*564 


;a2*4^4 


■I't^mBz 


«S4t43 


j60t34S 



TC02B1 



TAD 


(100 


OAC 


BUfFES 


CLA 




JMP 


PARWL2 


LAC 


(COBIT 


OTX;l 


\ 


JMS 


NEWORV 


JMP 


PARTS2 


LAS 




AND 


(1000 


SEA 




HLT 




.UAS 




AND 


(40 


S-ZA 




JMP 


R*RTS2 


►EJECT 



/UPDATE LWR 6 BitS 



/STOP TAPE 
/DONE ALU DRIVES 
/NO 



/END OF PASS HLT 
/YES 

/REPEAT PASS 

/REPEAT GEN PAT 
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TC02BX 



TC02B1 







/PARITY 


' TEST STEP 3 








/READ BLOCKS TEST 








/FOR CORRECT PARITY 


GENERATED 


02446 


140634 


PARTS3 


02M RECORD 




02447 


140633 




OZM OIRFLG 




02450 


100416 




JMS SEARCH 




02451 


204637 




LAC (3000 


/SEARCH TO READ DA 


02452 


707544 




DTXA 




02453 


204603 




LAC (BUFFER- 


'1 


02454 


040031 




DAC CALOC 




02455 


777400 




blenth 




02456 


040030 




OAC WCLOC 




02457 


200030 




LAC WCLOC 


/WAIT Fqs last 


02460 


740200 




SHA 


/DATA WORD 


02461 


602457 




JMP .-2 




02462 


204567 




LAC (1000 


/CHANGE TO 


02463 


707544 




DTXA 


/READ ALL 


02464 


101272 




JMS WTFlGS 




02465 


603013 




JMP RAERR0 




02466 


206400 




LAC BUFFER 




02467 


504652 




AND (7700 


/TEST For 


02470 


741200 




SNA 


/I OR 2 CHAR 


02471 


602474 




JMP .♦S 


/I CHAR 


02472 


770000 




LAW 10000 


/2 CHAR cKSUM 


02473 


602476 




JMP .♦S 


/SHOULD ■ 77 


02474 


206400 




LAC BUFFER 


/I CHAR 


02475 


244653 




XOR (770000 


/CHECKSUM » COMP 


02476 


560031 




SAO» CALOC 




02477 


741000 




SKP 




02500 


603022 




JMP PARCKE 


/CHECKSUM INCO 


02501 


200634 




LAC RECORD 




02502 


560342 




SAD* LSBLOK 


/DONE ALL BLOCKS 


02503 


602507 




JMP ,♦4 


/YES 


02504 


440634 




iSi RECORD 




02505 


204567 




LAC (1000 


/CHANGE BACK 


02506 


602452 




JMP PARTS3*4 


/TO READ DATA 


02507 


204600 




LAC (60B1T 




02510 


707544 




DTXA 


/STOP TAPE 


02511 


100303 


PAR3ND 


JMS NEWDRV 


/DONE 1 ALL DRIVES 


02512 


602446 




JMP PARTS3 


/NO DO NEXT DRIVE 


02513 


750004 




LAS 




02514 


504567 




AND (1000 


/STOP END OF 


02515 


740200 




SZA 


/PASS UP 


02516 


740040 




HLT 


/YES 


02517 


750004 




LAS 




02520 


504564 




AND (40 




02521 


740200 




SZA 




02522 


602446 




JMP PARTS3 
.EJECT 


/REPEAT PASS s 1 
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TC02BX 



TC02BI 



02523 


220342 


02524 


040634 


02525 


777777 


02526 


040633 


02527 


100416 


02530 


204637 


02S31 


707544 


02532 


777400 


02533 


040030 


02534 


204603 


02935 


040031 


0253* 


101272 


02537 


603072 


02540 


777777 


02541 


34B634 


02542 


040634 


02543 


750100 


02544 


602531 


02545 


204600 


02546 


707544 


02547 


100303 


02550 


602523 


02551 


140634 


02552 


140633 


02553 


100416 


02554 


204637 


02555 


707544 


02556 


777400 


02557 


040030 


02560 


204603 


02561 


040031 


02562 


101272 


02563 


603106 


02564 


200634 


02565 


440634 


02566 


560342 


02567 


602572 


02570 


750000 


02571 


602555 


02572 


204600 


02573 


707544 


02574 


100303 


02575 


602551 


02576 


750004 


02577 


504567 


02600 


740200 


02601 


740040 


02602 


750004 


02603 


504564 


02604 


740200 


02605 


602523 



/PARITY TEST STEP 4 
/READ BLOCKS BOTH DIRECTIONS 
/SHOULD NOT GET PARITY ERROR 
PARTS4 LAC» LSBLOK 

OAC RECORD 

LAW -I 

DAC DlRrLG 

JMS SEARCH 

LAC (3000 

DTXA 

BLENTH 

DAC WCLOC 

LAC (BUFFER-l 

DAC CALOC 

JMS WTFlGS 

JMP ROPERR 

LAW ■! 

TAD RECORD 

OAC RECORD 

SMAICLA 

JMP PARTS4*6 

LAC (GOBIT 

DTXA 

JMS NCWDRV 

JMP PARTS4 
PART4A DZM RECORD 

DZM DIRFLG 

JMS SEARCH 

LAC (3000 

DTXA 

BLENTH 

OAC MCLOC 

LAC (BUFFER-l 

DAC CALOC 

JMS WTFLGS 

JMP RDPERl 

LAC RECORD 

ISZ RECORD 

SAD* LSBLOK 

JMP ,*Z 

CLA 

JMP PART4A*4 

LAC (OOBIT 

DTXA 
PAR4ND JMS NEWORV 

JMP PART4A 

LAS 

AND (1000 

SZA 

HLT 

LAS 

AND (40 

SZA 

JMP PARTS4 

.EJECT 



/START 
/BACKWARDS 



/SEARCH TO 
/READ DATA 



/MAY BE PARITY ERROR 
/BLOCK OK 



/DONE BLOCK 
/NO 

/STOP TAPE 
/DONE ALL DRIVES 
/NO DO NEXT 

/BLOCK 
/FORWARD 

/READ Data 



/DONE ALL FORWARD 
/YES 



/STOP TAPE 

/NOT DONE ALL DriVES 

/HALT END OF pAss 

/REPEAT PASS 
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TC02BX 


TC02B1 

/STEP 5 WRITE BLOCKS TO 
/WRONG PARITY 




02606 


140634 


PARTS5 DZM RECORD 




02607 


140633 


DZM DIRFLG 




02610 


100416 


JMS SEARCH 




02611 


204637 


LAC (3000 




02612 


707544 


OTXA 


/READ DATA 


02613 


777400 


blenth 




02614 


040030 


DAC WCLOC 




02615 


204603 


LAC (BUFFER"! 




02616 


040031 


DAC CALOC 




02617 


200030 


LAC WCLOC 




02620 


740001 


CMA 


/WAIT FOR 


02621 


740200 


SZA 


/NEXT TO LAST WORD 


02622 


602617 


JMP ,-3 




02623 


204646 


LAC (17000 




02624 


707544 


DTXA 


/CHANGE TO WRITE ALL 


02625 


777776 


LAW *2 




02626 


040030 


OAC WCLOC 


/UNLESS CHARACTER 


02627 


204603 


LAC (BUFFER"! 


/IS 7777 


02630 


040031 


DAC CALOC 


/WRITE CHECKSUM 


02631 


206400 


LAC BUFFER 


/TO SAME AS DATA 


02632 


544654 


SAO (777700 




02633 


146400 


OlM BUFFER 




02634 


101272 


JMS WTFlGS 




02635 


602777 


JHP HAERR2 


/WA STATUS ERROR 


02636 


200634 


LAC RECORD 




02637 


440634 


ISZ RECORD 




02640 


560342 


SAD* LSBLOK 


/DONE ALL BLOCKS 


02641 


602644 


JMP .♦S 


/YES 


02642 


204646 


LAC (17000 


/NO CHANGE BACK 


02643 


602612 


JMP PARTS5*4 


/TO READ DATA 


02644 


204600 


LAC (60BIT 




02645 


707544 


DTXA 


/STOP TAPE 


02646 


100303 


JMS NEHORV 




02647 


602606 


JMP PARTS5 




02650 


750004 


LAS 




02651 


504567 


AND (1000 




02652 


740200 


SZA 




02653 


740040 


HLT 


/EWO OF PASS HALT 


02654 


750004 


LAS 




02655 


504564 


AND (40 




02656 


740200 


SZA 




02657 


602606 


JHP PARTS5 
.EJECT 


/REPEAT PASS 



PAGE *a 



TC02BX 



TC02B1 



/STEP 6 PARITV ERROR TEST 

/BLOCKS HAVE BEEN WRITTEN TC WRQNG PARITY 

/SHOULD GET PARITY ERRORS READ BOTH DjRECrTlO'S 



?2663 


i.40634 


02661 


140633 


02662 


100416 


32663 


204637 


02664 


707544 


02665 


2046^3 


32*66 


040031 


02667 


777400 


0267^ 


040030 


02«71 


707572 


02#72 


741200 


KlftT'S 


632671 


wzm* 


7t7562 


0^675 


740100 


02676 


6^3120 


02677 


504600 


02700 


741200 


02701 


603120 


02702 


200634 


02703 


440634 


02704 


560342 


02705 


602710 


02706 


750000 


02707 


602664 


02710 


204600 


02711 


707544 


02712 


100303 


02713 


602660 



PARTS6 D2M RECORD 
02M OIRFLG 
JMS SEARCH 
LAC (3000 
DTXA 

LAC (BUFFER«1 
DAC CALOC 
BLENTH 
DAC WCLOC 
OTRB*10 
SNA 

JMP .-2 
OTRB 
SMA 

JMP PARERE 
AND (PARBIT 
SMA 

JMP PARERE 
LAC RECORD 
iSi RECORD 
SAO* USBLOK 
JMP ,*3 
CLA 

JMP PARTS6*4 
LAC (GOBIT 
DTXA 

JMS NEWDRV 
JMP PARTS6 
.EJECT 



/START 
/wiTM BLOCK £^ 
/FORWARD 

/READ Data 



/WAIT FOR 
/FLAGS 



/SHOULD BE ERROR FLAG 
/NO ERROR 

/PARITY ERROR 
/NO 



/DONE ALL FORWARD 
/YES 



/STOP TAPE 
/DO NEXT DRIVE 
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TC02B 


02714 


220342 


02715 


040634 


02716 


777777 


02717 


040633 


02720 


100416 


02721 


204637 


02722 


707544 


02723 


204603 


02724 


040031 


02725 


777400 


02726 


040030 


02727 


101272 


02730 


741000 


02731 


603132 


02732 


707572 


02733 


244655 


02734 


740200 


02735 


603132 


02736 


777777 


02737 


340634 


02740 


040634 


02741 


750100 


02742 


602722 


02743 


204600 


02744 


707544 


02745 


100303 


02746 


602714 


02747 


750004 


02750 


504567 


02751 


-t^ezed 


02752 


740040 


02753 


750004 


02754 


504564 


02755 


740200 


02756 


602660 


02757 


104124 


02760 


777777 


02761 


459644 


02762 


006077 


02763 


602266 



TC02B1 

/READ BLOCKS BACKWARDS FoR PaRITV ERRQRs 
PAflT6A LAC« LSBLOK 



PAR6ND 



OAC RECORD 




LAW -1 




OAC DIRFLG 




JMS SEARCH 


/FIND IT BACKWARDS 


LAC (3000 


/TO READ Data 


OTXA 




LAC (BUFFER-l 




DAC CALOC 




BLENTH 




OAC WCLOC 




JMS WTFlGS 




SKP 




JMP PAREEl 




DTRB*10 




XOR (420100 




SZA 


/PARITY ERROR Anc DTF»1 


JMP PAREEl 


/NO 


LAW -1 




TAO RECORD 




OAC RECORD 




SMAICLA 


/DONE BACKWARDS 


JMP PART6A*6 


/NO DO NEXT BLOCK 


LAC (OOBIT 




DTXA 


/STOP TAPE 


JMS NEWDRV 




JMP PART6A 


/DO NEXT DRIVE 


LAS 




AND (1000 




SEA 




HLT 


/END OF PASS HLT 


LAS 




AND (40 




SiA 




JMP PARTS6 


/REPEAT PASS 


JMS TYPTEX 




777777 




459644 




6077 




JMP PARTST 




.EJECT 
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TC02BX 


TC02B1 








/PARITY 


TEST ERROR TyPEOUTS 






/WRITE 


ALL ERROR TYPEOUT 


02764 


102766 


WAERR0 


JMS WAERRT 


02765 


602272 




JMP PARTST*4 


02766 


602766 


WAERRT 


J MP . 


02767 


104423 




JMS STPTAP 


0?770 


104400 




JMS TYWALL 


027^1 


200634 




LAC RECORD 


027-72 


104 467 




JMS TYPBLK 


02773 


104338 




JMS TYPWC 


02774 


104447 




JMS TYSTAB 


02775 


104153 




JMS ERRHLT 


027f6 


622766 




JMP« WAERRT 


02777 


102766 


WAERR2 


JMS WAERRT 


emse 


6a2'6l0 




JMP PARTS5*2 






/WRITE 


DATA El'ROR TYPEOUT 


e^mi 


104423 


WOERR0 


JMS STPtAP 


03MZ 


104363 




JMS TYWDAT 


amws 


104153 




JMS ERRHLT 


03t04 


602352 




JMP PARWLP-2 






/ALSO A 


WRITE DATA ERROR TYPEOUT 


03009 


104423 


WOERRl 


JMS STPTAP 


03006 


104363 




JMS TYWDAT 


03007 


104153 




JMS ERRHLT 


03010 


100416 




JMS SEARCH 


03011 


204615 




LAC (9000 


03012 


602376 




JMP PARWL2 






/READ ALL STATUS ERROR TyPEQUT 


03013 


104423 


RACRR0 


JMS STPTAP 


03014 


104353 




JMS TYRALL 


03018 


200634 




LAC RECORD 


03016 


104467 




JMS TYPBLK 


03017 


104447 




JMS TYSTAB 


03020 


104153 




JMS ERRHLT 


03«21 


602490 




JMP PARTS3#2 
.EJECT 



'. 43 


TC02BX 


TC08B1 








/TYPE OUT Checksum 


ERROR 


03022 


104423 


PARCKE JMS STPTAP 




03023 


104353 


JMS TYRALL 




03024 


104124 


JHS TYPTEX 




03025 


777777 


777777 




03026 


435300 


435300 


/CK 


03027 


636555 


636555 


/SUM 


03030 


004562 


4562 


/ER 


03031 


627700 


627700 


/R77 


03032 


200634 


LAC RECORD 




03033 


104467 


JMS TYPBLK 




03034 


206400 


LAC BUFFER 




03035 


104536 


JMS TYDATA 




03036 


206400 


LAC BUFFER 




03037 


504652 


AND (7700 




03040 


744000 


CLL 




03041 


741200 


SNA 




03042 


744002 


STL 




03043 


770000 


LAW 10000 




03044 


741400 


SZL 




03045 


246400 


XOR BUFFER 




03046 


104536 


JMS TYDATA 




03047 


104124 


JMS TYPTEX 




03090 


004353 


4353 


/CK 


03051 


006365 


6365 


/SU 


03052 


550045 


550045 


/M E 


03053 


706077 


706077 


/XP EOM 


03054 


104276 


JMS TYCRLF 




09059 


207000 


LAC BUrFR2 




03056 


104213 


JMS TYPCON 




03057 


104124 


JMS TYPTEX 




03060 


435300 


435300 


/CK 


03061 


636555 


696555 


/SUM 


03062 


006245 


6245 


/RE 


03063 


414477 


414477 


/AO EOM 


03064 


104153 


JMS ERRHLT 




03065 


200634 


LAC RECORD 




03066 


440634 


ISE RECORD 




03067 


560342 


SAO» LSBLOK 




03070 


602511 


JMP PAR3ND 




03071 


602450 


JMP PARTS3*: 
.EJECT 


2 
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TC02BX 


TC02B1 








/READ 


PARITY ERROR Backward 


03072 


104423 


RDPERR 


JMS STPTAP 


03073 


104340 




JMS TYROAT 


03074 


206777 




LAC BUFFR2-1 


03075 


104536 




jMS tydata 


03076 


104447 




jMS TYSTA8 


03077 


104153 




JMS ERRHLT 


03100 


777777 




LAW -1 


03101 


340634 




TAD RECORD 


03102 


741100 




SPA 


03103 


602547 




JMP PART4A"2 


03104 


040634 




DAC RECORD 


03105 


602527 




JKP PARTS4*4 






/READ 


PARITY ERROR FORWARD 


03106 


104423 


RDPERl 


JMS STPTAP 


03107 


104340 




JMS TYRDAT 


03110 


204400 




LAC BUrpER 


03111 


104536 




JMS TYDATA 


03112 


104447 




JMS TYSTAB 


03113 


200634 




LAC RECORD 


03114 


440634 




ISZ RECORD 


03115 


960342 




SAP* LSBLOK 


03116 


602574 




JMP PAR4ND 


03117 


602553 




JMP PART4A*2 
.EJECT 
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TC028X 


TC02B1 












/TYPE OUT FOR NO PARITY 


ERROR 








/PARITY 


EXPECTED DIRECTION' IS FwD 




03120 


103144 


PARERE 


jMS parnor 






03121 


206400 




LAC BUFFER 






03122 


104536 




JMS TYDATA 






03123 


104447 




JMS TYSTA3 






03124 


200634 




LAC RECORD 






03125 


104153 




JMS ERRHLT 






03126 


440634 




iSi RECORD 






03127 


560342 




SAO* LSBLOK 






03130 


602712 




JMP PART6A»2 






03131 


602662 




JMP PARTS6*2 










/NO PARITY ERROR-AS-EXPEcTED DIREC 


BKWD 


03132 


103144 


PAREEl 


JMS PARHDR 






03133 


206777 




LAC 9UFFR2-1 






03134 


104536 




JMS TYDATA 






03135 


104447 




JMS TYSTAB 






03134 


104153 




JMS ERRHLT 






03137 


777777 




LAW -1 






03140 


340634 




TAD RECORD 






03141 


741100 




SPA 






03142 


602745 




JMP PAR6N0 






03143 


602720 




JMP PART6A*4 






03144 


603144 


PAHHOR 


JMP , 






03145 


104429 




JMS STPTAP 






03146 


104340 




JMS TYROAT 






03147 


104124 




JMS TYPTEX 






03150 


006041 




6041 


/PA 




03151 


629164 




629164 


/RIT 




03152 


710049 




710049 


/Y E 




03153 


626257 




626297 


/RRO 




03154 


620049 




620049 


/R E 




03155 


706077 




706077 


/XP EOM 




03196 


623144 




JMP# PARHOR 
.EJECT 
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TC02SX 


TC02B1 
/TABLE 


OF PARITY FIXED PATTERNS 




03157 


010000 


PARTBL 


100021 




03160 


020000 




20000 




03161 


040000 




40000 




03162 


100000 




100000 




03163 


200000 




200000 




03164 


400000 




400000 




03169 


760000 




760000 




03166 


750000 




750000 




03167 


730000 




730000 




03170 


670000 




670000 




03171 


570000 




570000 




03172 


370000 




370000 




01173 


010100 




10100 




03174 


020200 




20200 




03175 


040400 




40400 




03476 


101000 




101000 




03177 


202000 




202000 




03t00 


#04000 




404000 




032^1 


767600 




767600 




mmz 


75t500 




757500 




ezim 


73?300 




737300 




03204 


676700 




676700 




03205 


575700 




575700 




03206 


373700 




373700 




03207 


000000 


/TC02 1 
/TC02 1 
/READS 
/INTO f 


/END OF TABLE 
3ASIC EXERCISER - TAPE 3 
3ASIC SEARCH ROUTINE 2 
A SERIES OF 256 BlOCK NUMBERS 
MEMORY AND WIUL PRiNT THEM OR 








/COMPARE AND PRINT ERRORS 




09210 


104431 


SRCH2R 


JMS TYPDRV 




03211 


104124 




JMS TVPTEX 




03212 


777777 




777777 




03213 


777777 




777777 




03814 


647160 




647160 /TYP 




03tl5 


450051 




450051 /E I 




03216 


560046 




560046 /N F 




03217 


004657 




004657 / FO 




03220 


620046 




620046 /R F 




03221 


576267 




576267 /ORW 




03222 


416244 




416244 /ARD 




03223 


770000 




770000 /77 




03224 


750000 




CLA 




03225 


103425 




JMS tyothR /type Out cther wait kfy 


03226 


544656 




SAD (306 /F TYPED iN 




03227 


744002 




STL /YES AC s 4 




03230 


204606 




LAC (SRCHFW 




03231 


740400 




SNL /WAS IT FORWARD 




03232 


344601 




TAD (OIRBIT /NO GO BACKWARD 




03233 


340631 




TAD UNFUNC 




03234 


707545 




DTLA 




03235 


204610 




LAC {BUFFER 




03236 


040031 




DAC CALOC 




03237 


140030 




DZM WCLOC 
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TC02B 


133240 


707572 


03241 


741200 


03242 


603240 


03243 


741100 


03244 


603377 


03249 


204644 


03246 


940030 


03247 


603293 


03290 


707954 


03291 


440031 


03292 


603240 


03293 


204600 


03254 


707544 


03299 


104124 



TC02B1 
SR2WLP 



SR2RC0 



OTRB*10 

SNA 

JMP ,»2 

SPA 

JMP SR2EET 

UAC (400 

SAO WCLOC 
JMP ,*4 
DTXA*10 
ISi CALOC 
JMP SR2WLP 
LAC (GOBIT 
OTXA 

JMS TYPTEX 
.EJECT 



/WAIT FOR ^LAG 



/ERRCR TLAG up 

/YES CHECK EZ 

/DONE 256 BLOCKS 
/YES 
/RESET ENABLES 

/STEP ADORESS 

/WAIT Again 

/STOP TAPE 
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TC02B 


03256 


777777 


03257 


777777 


03260 


647160 


03261 


450051 


03262 


560043 


03263 


004657 


03264 


620043 


03265 


575560 


03266 


416245 


03267 


770000 


03270 


204605 


03271 


040010 


03172 


204603 


03173 


040011 


03174 


777777 


03175 


103425 


03276 


040012 


03277 


104276 


0-3300 


206400 


03301 


104213 


03302 


104124 


03303 


465162 


03304 


636477 


03305 


200012 


03306 


544657 


03307 


603332 


03310 


200011 


03311 


504614 


03312 


544614 


03S13 


104276 


03314 


220011 


03315 


104213 


03316 


200010 


03317 


440010 


03320 


504660 


03311 


540030 


05322 


741000 


03313 


603310 


03324 


104124 


03315 


544163 


03526 


647700 


03327 


100303 


03330 


603210 


03531 


603210 



TC02B1 



SRSFRS 



SRSEND 



777777 


/TVP 




777777 






647160 


/E I 




450051 


/N C 




560043 


/ FO 




4657 


/R C 




620043 


/OMP 




575560 


/ARE 




416245 


/EOM 




770000 






LAC (1 






DAC 10 






LAC (BUFFER-l) 






DAC 11 






LAW -1 






JMS TYOThR 






DAC 12 






JMS TYCRLr 




/TYPEOUT 


LAC BUFFER 




/FIRS Block n 


JMS TYPCON 






JMS TYPTEX 






465162 


/FIR 




636477 


/ST COM 




LAC 12 






SAD (303 






JMP SR2C0M 




/YES COMPARE 


LAC 11 






AND (7 






SAD (7 






JMS TYCRUF 






LAC« 11 






JMS TYPCON 






LAC 10 






iSi 10 






AND (777 






SAO WCLOC 






SKP 






JMP 9R2EN0-3 






JMS TYPTEX 






544163 


/LAS 




647700 


/T EOM 




JMS NEWDRV 






JMP SRCH2R 






JMP SRCH2R 






.EJECT 
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TC02a 


03332 


777777 


03333 


040012 


03334 


204610 


03339 


040013 


03336 


707552 


03337 


504601 


03340 


740200 


03341 


777777 


03342 


741200 


03343 


204609 


03344 


360011 


0334S 


504604 


03S46 


560013 


03347 


603370 


0SS50 


440012 


03391 


603356 


03S52 


104276 


0SS93 


104276 


03394 


200011 


03399 


344661 


0339« 


043357 


03397 


200000 


03360 


104213 


03361 


104276 


03362 


200013 


03363 


344661 


03364 


043369 


03369 


200000 


03366 


104213 


03367 


603372 


03370 


777777 


03371 


040012 


03372 


440010 


09373 


200010 


03374 


940030 


03379 


603313 


03376 


603336 


03377 


707592 


03400 


504600 


03401 


740200 


03402 


104423 


03403 


104447 


03404 


200030 


03409 


104467 


03406 


104124 


03407 


630062 


03410 


454144 


03411 


770000 


03412 


200030 


03413 


344662 


03414 


740100 


03415 


603255 


03416 


544662 


03417 


603210 


03420 


204605 



TC02B1 
SR2C0M 



SR2CM 



SR2EZr 



LAW -I 


/SET FIRST ERROR 


DAC 12 


/FLAG 


LAC (BUFFER) 




OAC 13 




DTRA*10 




AND (DIRBIT 


/GET DIRECTION 


SZA 


/FORWARD 


LAW -1 


/NO BKWDS IS -1 


SNA 


/BKWD 


LAC (1 


/NO FWD IS ♦! 


TAD* 11 


/LAST BLOCK + OR - 


AND (7777 


/MASK Over 4096 


SAD* 13 


/SEQUENTIAL 


JMP SR2CM 


/YES num Ok 


ISH 12 


/NEW ERROR 


JMP ,*3 


/NO STILL IN AROW 


JMS TYCRLF 




JMS TYCRLF 




LAC 11 


/GET LAST BLOCK NiUMBER 


TAD (LAC 




DAC .♦! 




LAC 




JMS TVPCON 


/TYPE FIRST IN ERROR 


JMS TYCRLP 




LAC 13 


/GET CURRENT 


TAD (LAC 




DAC ,*1 




LAC 




JMS TYPCON 




JMP ,*3 


/SKIP FLAG RESTORE 


LAW .1 




DAC 12 


/RESET FIRST ERROR 


ISZ 10 




LAC 10 




SAD WCLOC 


/DONE ALL 


JMP SR2EN0 




JMP SR2C0M*4 




DTRA»10 




AND (COBIT 




SZA 


/MOTION STJLL = 1 


JMS STPTAP 


/YES STOP TAPE 


JMS TYSTAB 




LAC WCLOC 




JMS TYPBLK 


/NUMBER 0^ BLOCKS 


JMS TYPTEX 




630062 


/S 


454144 


/REA 


770000 


/O EOM 


LAC WCLOC 




TAD (777776 




SMA 


/READ 2 Blocks 


JHP SR2REQ 


/MORE Than 2 


SAO (777776 


/READ ANY BLOCKS 


JMP SRCH2R 


/NO, NOT EVE'V 1 


LAC (1 


/IF 1 OR 2 



BASE 50 TC02BX TC02B1 

33421 040010 DAC 10 /THE^J TYPEOUT 

23422 204663 LAC (LAC BUPFER-1 /BOTH A^d 

?3423 040011 OAC 11 /RESTART 

?3424 603276 JHP SR2Ff?S-l 

.EJECT 
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TC023 


03<25 


603425 


03426 


?402l7 


03427 


104124 


0343? 


777777 


03431 


415454 


03432 


005764 


03433 


504562 


03434 


630077 


03435 


440017 


03436 


603444 


03437 


104124 


03440 


606251 


03441 


566400 


03442 


770000 


03443 


603445 


03444 


104416 


03449 


104272 


03446 


700301 


03447 


603446 


03450 


700312 


03451 


744000 


03452 


623429 



TC02BI 



/TYPE OUT ALL OTHERS 


FViO OR COMPARE 


/WAIT rOR KEYBOARD ^lAG 


tyothr jmp . 




DAC 17 




JMS TYPTEX 




777777 




415454 


/ALL 


5764 


/OT 


504562 


/HER 


630077 


/S EOM 


1S2 17 




JMP ,*6 


/TYPE BKWO 


JMS TYPTEX 




606251 


/PRI 


566400 


/NT EOM 


770000 




JMP ,*2 




JMS TYBKW 




JMS SPACE2 




KSF 




JMP .-1 




KRB 




CLl 




JMP* TYOTHR 




.EJECT 
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TC02SX 


TC02B1 










/START 


STOP TURN ARDUNC 


) TEST 


03453 


777777 


STRSTP 


LAW ^1 




03454 


040017 




OAC 17 




03455 


100373 




JMS REWORV 


/9ACK TAPE INTO fri 


03456 


777777 




LAW -1 




03457 


060340 




OAC» POSITN 




03460 


060341 




DAC» DIRECT 




03461 


100303 




JMS NEWDRV 




03462 


603455 




JMP STRSTP*2 




03463 


440017 




1S2 17 


/2ND PASS 


03464 


603470 




JMP ,*A 


/YES 


03465 


204561 




LAC (1102 




034-66 


540264 




SAO EEBlOK 


/7 FORMAT TAPES 


03467 


603455 




JMP STRSTP*Z 


/YES GO BACKWARD AGAIN 


03470 


104112 




JMS wtnalt 


/TIME OUT 500 MSEC 






/START 


TAPE FORWARD^ SHOULD BE FAR ENOUGM 






/INTO END lONE TO PICK 


UP BLOCK 






/FORWARD ON START 




03471 


140634 


STREZF 


OZM RECORD 


/BLOCK 


03472 


140633 




OHM OIRFLG 


/FORWARD 


03473 


103669 




JMS STRFwO 


/FIRST OliT or 


03474 


707554 




DTXA*10 




03475 


204605 




LAC (1 




03476 


040634 




DAC RECORD 


/NOW GO TO 


03477 


160340 




D?M« POSITN 


/BLOCK 1 


03900 


160341 




DiM» DIRECT 




03501 


101272 




JMS wtflgs 




03502 


603537 




JMP STEZER 




03S03 


206377 




LAC BLKFND 




03904 


440636 




ISi FRSFLS 




03905 


544605 




SAO (1 




03506 


741000 




SKP 




03107 


603537 




JMP STEHER 




03510 


060340 




DAC« POSITN 




03911 


140634 




DZM RECORD 




03912 


777777 




LAW -1 


/TURN AROUND 


03513 


040633 




OAC DIRFLG 


/SHOULD GET 


03514 


103711 




JMS TABKWO 


/0 BKWOS 


03915 


204664 




LAC (1100 




03516 


540264 




SAO EiBLOK 




03917 


603522 




JMP .♦S 




03920 


707552 




DTRA*10 


/IF 7 FORMAT TAPES 


03521 


707545 




DTLA 


/GO BKWD FARTHER 


03522 


707572 




DTRB*10 


/WAIT FOR EZ 


03923 


740100 




SMA 




03524 


603522 




JMP ,-2 





•EJECT 
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TC02BX 


TC02B1 










/NOW TURN AROUN'O SHOULD 


PICK UP BLOCK rO 






/COMING 


OUT OF END 2CNE 




03525 


777777 




LAW -1 




03526 


060340 




DAC« POSITS! 




03527 


060341 




OAC» DIRECT 




03530 


140634 




D2M RECORD 




03531 


103673 




JMS TAFrtO 


/DO FORwaR 


03532 


204600 




LAC (GOBIT 




03533 


707544 




DTXA 


/STOP TAPE 


03534 


100303 




JMS NEWORV 




03535 


603471 




JMP STREET 




03536 


603544 




JMP STFWDl 




03537 


100563 


STCEER 


JMS SRERRO 




03540 


104153 




JMS errhlt 




03541 


160340 




OZM» POSITN 




03542 


160341 




DiM» DIRECT 




03543 


603534 




JMP STEEER-J 








/TEST START FORWARD AFTER 






/rWD STOP IF FAST TEST 


SWITCH 






/IS SET 


MAKE 2 PASSES AND PROCEED 


03544 


777777 


STFWDl 


LAW -1 


/TO COUNT 2 STARTS 


03545 


040017 




OAC 17 


/IF FAST TEST = j 


03946 


104112 




JMS WTHALF 




03547 


220340 




LAC* POSITN 




03950 


344120 




TAD SrWDK 




03991 


040634 




DAC RECORD 




03952 


140633 




OZM OIRFLG 




03553 


740001 




CMA 




03954 


340269 




TAD ENDBLK 




09959 


741100 




SPA 




03996 


604044 




JMP reiTST 




03997 


103665 




JMS STRFWO 




09960 


204600 




LAC {OOBIT 




03961 


707544 




OTXA 


/STOP. TAPE 


03962 


100303 




JMS NEWORV 




09563 


603547 




JMP STFW0i*3 




03564 


440017 




ISE 17 


/2ND PASS 


03969 


603572 




JMP .♦S 


/FAST TEST 


09964 


750004 




LAS 




09567 


504564 




AND (40 




03970 


740200 




SIA 


/FAST TEST 


03971 


603546 




JMP STrWDl*2 
.EJECT 


/YES 
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TC023X 


TC02B1 










/TEST START BKWD AFTER 


Stop fwd 


03572 


104112 


STBKWl 


JMS WTHALF 




03573 


220340 




LAC* POSITN 


/LAST POSITION 


03574 


344121 




TAO SBKWK 


/-3 


03575 


040634 




DAC RECORD 


/SHOULD FIND BKwC 


03576 


777777 




LAW ,1 




03577 


040633 




OAC OIRFLG 




zztm 


103703 




JMS STRBKW 


/START TAPE 


03*01 


204400 




LAC (G08IT 




03M2 


707544 




OTXA 


/STOP TAPE 


036^3 


100303 




JH-S NEWORV 


/ALL DRIVES 


03*®4 


603573 




JMP STBKWl*! 


/NO 






/TEST START TWO AFTER 


SKWO 


0IM5 


104112^ 


STFWD2 


JMS WTHALF 




fszem 


220340 




LAC» POSITN 




03«17 


344122 




TAO SFW0K2 


/SHOUUD FIND 


03410 


040634 




OAC RECORD 


/FWD AFTER STP BkWD 


03611 


140633 




D2M DIRFLG 




03*12 


1^3665 




JMS STRFWD 


/START TAPE 






/NOW WAIT FOR 1 MORE BLOCK 






/AND DO 


A BKWD TURN AROUnO 


03613 


707554 




DTXA*10 


/PASS OVER 


03614 


440634 




ISi RECORD 


/I BLOCK 


03615 


101272 




JMS WT^LGS 




03416 


603637 




JMP sr2ERR 


/STATUS ERROR 


03617 


206377 


SF2ERT 


LAC BLKFNO 




03620 


440636 




ISE FRSFLG 




03621 


540634 




SAD RECORD 




03622 


741000 




SKP 




03623 


603637 




JMP SrSERR 


/WRONG BLOCK 


03624 


060340 




OAC» POSITN 




03625 


344562 




TAO (777777 


/BLOCK -1 


03626 


040634 




DAC RECORD 


/FOR TURN AROUND 


03427 


777777 




LAW -1 




03*30 


040633 




OAC OIRFLG 


/SET BKWDS 


03431 


103711 




JMS TABKWD 


/DO TURN AROUND 


03632 


204600 




LAC (GOB IT 




03433 


707544 




DTXA 


/STOP TAPE 


03434 


100303 




JMS NEWORV 


/DONE ALL DRIVES 


03455 


603405 




JMP STrw02 


/NO 


03436 


603646 




JMP ST8KW2 
.EJECT 
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TC028 


03637 


200634 


2I3640 


540264 


03641 


604044 


03642 


10?563 


03643 


104022 


03644 


100416 


03645 


603617 


03646 


104112 


03647 


220340 


03650 


344123 


03651 


040634 


03652 


777777 


03653 


040633 


03654 


103703 


03655 


440634 


03656 


140633 


03657 


103673 


03660 


204600 


03661 


707544 


03662 


100303 


03663 


603646 


03664 


603544 



TC02B1 

srzERR lac record 

SAO EZBtOK 

JMP FEZTST 

JMS SflERRO 

JKS TYPAO 

JMS SEARCH 

JMP sr2ERT 

/NOW Test start bkwp atter stop bk-^d 

STBKW2 JMS WTHALf 

LAC» POSITN 

TAD SBKWK2 

DAC RECORD 

LAW -1 

DAC DIRFlG 

JMS STRbKW 
/MOW TEST FWO TURN AROUND 

ISE RECORD 

02M OIRFLG 

JMS TAFWD 



/UAST POSITION 
/-5 

/SHOULD FIND 0^ 
/START BKWO 



/START TAPE 



/FWO TA 
/SHOULD FIND +1 



LAC (GOBIT 
DTXA 

JMS NEWDRV 
JMP STBKW2 

JMP srrwoi 

.EJECT 



/TUR\i AROUND 

/STOP TAPE 

/DONE ALL 

/NO 00 NEXT DRIVE 
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TC02B 


33665 


603665 


33666 


204577 


03667 


340631 


03670 


707545 


03671 


103721 


03672 


623665 


03673 


603673 


03674 


707552 


03675 


740001 


03676 


504600 


03677 


344601 


03700 


707544 


03701 


103721 


03702 


623673 


03703 


603703 


03704 


204576 


03705 


340631 


03706 


707545 


05707 


103762 


03710 


623703 


03711 


603711 


03712 


707552 


03713 


740001 


03714 


504600 


03715 


344601 


03716 


707544 


03717 


103762 


03720 


623711 



/IN CASE 
/GO CLRD 



/COMP DIRECT 



TC02B1 

/START TAPE FORwARO 
STRFWO JMP , 

LAC (SRCHTw+ENABlI 

TAD UNTuNiC /+ D^'IVE 

DTLA /LOAD STAT 

JMS SFTROL 

JMP» STRF^D 
/TURN AROUND GO FWD 
TAFWD J^P , 

DTRA^l^i 

CMA 

AND (GOBIT 

TAD (OIRBIT 

DTXA 

JMS SFTROL 

JMP« TAFWD 
/START TAPE BACKWARDS 
STRBKW JMP , 

LAC {SRCHBW+ENABlI 

TAD UNFunC /♦ DRIVE 

DTLA /LOAD A 

JMS SBTROL 

JMP» STRBKW 
/DO TURN AROUND BACKWARDS 
TABKWD JMP , 

OTRA*10 

CMA 

AND (GOBIT 

TAD (DIRBIT 

DTXA 

JMS SBTROL 

JMP« TABKWD 

.EJECT 



/IN CASE GO s 



/COMP DIRECTION 
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TC02BX 



TC02BI 



/CONTROL SEARCH FWD ROUT 
/COMPARE fOR CONSECUTIVE 
/E«R IF PAST BLOCK EXJT 
/ 

33721 603721 STTROL J»P . 

03722 777777 LAW -1 

03723 040636 DAC FRSFlG 

03724 707554 OTXA*10 

03725 204603 uAC <8LKr:\J0 

03726 040031 OAC CALOC 

03727 101272 JHS WTPlGS 

03730 603753 JMP SFERRO 

03731 206377 LAC BLKFNO 

03732 440636 IS! FRSFlG 

03733 403737 jMP ,♦4 

03734 504604 AND (7777 

03735 040637 DAC LSTatK 

03736 603745 JMP SFCOMP 

03737 344562 TAD (777777 

03740 540637 SAD LSTBLK 

03741 741000 SKP 

03742 603753 JMP SFERRO 

03743 344605 TAD (1 

03744 040637 DAC LSTBLK 

03745 540634 SFCOmP SAO RECORD 

03746 603756 JMP SFERR0*3 

03747 740001 CMA 

03750 340634 TAD RECORD 

03751 740100 SMA 
03798 603724 JMP SFTROL*"* 

03753 100563 SFCRRO JMS SRERRO 

03754 104022 JMS TYPAD 

03755 100416 JMS SEARCH 

03756 200634 LAC RECORD 

03757 060340 OAC« POSITN 

03760 160341 DZM« DIRECT 

03761 623721 JMP. SFTROL 

.EJECT 



TNE 

3LCCK NU.-^BERS 
ON BLOCK NUMBER 



/FIRST BLOCK FLAG 



/STATUS ERROR 

/FIRST BLOCK 

/NO 

/GET RlD OF GARBAGE 
/SAVE BLOCK NUMBER 
/COMPARE 
/THIS BLOCK 
/I MORE THAN UAST 
/YES 
/NOT SE(3UENT1AL 



/BLOCK LOOKED Fqr 
/YES 



/PAST BLOCK 
/NO WAIT NEXT 



/NEW POSITION 
/AND DIRECTION 
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1028 X 



TC02B1 



03762 


603762 


03763 


777777 


03764 


040636 


03765 


707554 


03766 


101272 


03767 


604012 


03770 


206377 


03771 


440636 


03772 


603776 


03773 


504604 


03774 


040637 


03775 


604004 


03776 


344605 


03777 


540637 


04000 


741000 


:04*01 


-604012 


04002 


344562 


04003 


040637 


04004 


540634 


04005 


604015 


04006 


740001 


04007 


340634 


04010 


741100 


04011 


603765 


04012 


100563 


04013 


104022 


04014 


100416 


04015 


200634 


04016 


060340 


04017 


777777 


04020 


060341 


04021 


623762 



/.SEARCH BKWD CONT 
/CHECK ro" CCNSEC 
/ERROR IF Past ai 
SBTROL JMP , 
LAW -1 
DAC PRSFL 
DTXA*1?! 
JMS WTFlG 
JMP SBERR 
LAC SLKFNi 
ISZ FRSFL 
JMP ,4.4 

AND (7777 
DAC LSTBL 
JMP SB COM 
TAD <1 
SAO LSTBL 
SKP 

JMP SBERR 
TAD (7777 

dac lstbl 
sbcomp sad recor 

JMP SBERR 
CMA 

TAO RECOR 
SPA 

JMP SBTRO 
SBERRO JMS SRERR 
JMS TYPAD 
JMS SEARC 
LAC RECOR 
OAC» POSI 
LAW -1 
DAC* DIRE 
JMP* SBTR 
.EJECT 



ROL 

UTivE 
OCK 



A- A 





77 

K 

D 
0*3 





H 

TN 

CT 
OL 



Block numbers 

i\TE" 

/SET FIRST 
/BLOCK FLAG 



/STATUS ERROf 

/fIRST BLOCK 
/NO 



/SAVE BLOCK NUMBER 

/THIS BLOCK 

/I LESS THAN LAST 

/YES 



/EXIT BLOCK 
/YES 



/PAST BLOCK 
/NO 



/NEW POSITION 

/AND 

/DIRECTION 



PAGE 59 TC02BX TC02B1 







/TYPE OUT LAST SlOCK 


POStTIO\ 


04022 


604022 


TYPAO JMP , 




04023 


220340 


LAC* POSITN 




04224 


104213 


JMS TYPCON 




04025 


220341 


LAC» DIRECT 




04026 


741200 


SNiA 




04027 


604032 


JMP .O 




04030 


104416 


JMS TYBkw 




04031 


741000 


SKP 




04032 


104411 


JMS TYFWO 




04033 


104124 


JMS TYPTEX 




04034 


205441 


5441 


/ LA 


04039 


636400 


636400 


/ST 


04036 


605763 


605763 


/POS 


04037 


777777 


777777 


/CR lF 


04040 


777777 


777777 


/CR LF 


04041 


770000 


770000 


/EOm 


04042 


104153 


JMS ERRNLT 




04043 


624022 


JMP« TYPAD 
•EJECT 
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TC02aX 



TC02B1 



04044 


777777 


0AZA5 


E40017 


04046 


?4B633 


04047 


340265 


04^^!50 


04?I634 


04051 


100416 


04052 


777777 


04053 


060341 


04054 


200634 


^»,m5 


06B340 


04056 


200265 


04057 


040-634 


04060 


140633 


04e6l 


103*73 


040i6'2 


707572 


04«*3 


74-0100 


0AB6A 


604062 


04065 


204664 


04066 


540264 


04067 


604071 


04070 


440017 


04071 


604075 


04072 


204600 


04073 


707544 


04074 


604062 


04075 


777777 


04076 


060340 


04077 


040633 


04100 


103711 


04101 


204600 


04102 


707544 


04103 


100303 


04104 


604044 


04105 


104124 


04106 


777777 


04107 


455644 


04110 


770000 


04111 


603453 



/TEST TURN AROUMO 30T 

/D1RECTI0^'S OM LAST B 

/ 

rE2TST LAW -1 
DAC 17 
OAC DIRFL3 
TAO END9LK 
DAC RECORD 
JMS SEARCH 
LAW -1 
DAC» DIRECT 
LAC RECORD 
DAC» POSITN 

lac endblk 
oac record 
dzh oii^flc 

JMS TATWD 
FE2WEH OTRB*10 
SMA 

JMP ,-2 
LAC (1100 
SAD EZBlOK 
JMP ,*2 
ISi 17 
JMP .♦4 
LAC (C08IT 
DTXA 

JMP FEZiJEH 
LAW -1 
DAC» POSITN 
DAC DlfTLG 
JMS TABKWD 
LAC (GOBIT 
DTXA 

JMS NEWORV 
JMP TEITST 
JMS TYPTEX 
777777 
455644 
770000 

JMP STRSTP 
.EJECT 



LCCk 0\ TAPr 



/FIMil LAST 9LK-1 
/WAS BKWD 



/^0W TA 

/FIND LAST BLOCK 

/FORkARD 



/WAIT FOR Zi 



/9 FORMAT 
/VES 

/2ND E2 7 FORMAT 
/VES 

/HIT EE 
/TWICE FOR 
/7 FORMAT 

/INDICATE EZ 
/NOW TA 

/FIND LAST BLDCk 
/BACKWARDS 
/STOP TAPE 
/DONE ALL DRIVES 
/NO 

/TVPE End 



/RESTART 



PACE 61 


TC02gX 


TC02B1 










/JUST 


TIME 1 


OUT 






/HALF 


A SECOND 


P4112 


604112 


wthalf 


JMP 


1 


04113 


204665 




UAC 


(272056 


04114 


040016 




DAC 


16 


04115 


440016 




ISZ 


16 


04116 


604115 




JMP 


.-1 


04117 


624112 




JMP( 


» WTHALF 


04123 


Z00005 


srwDK 


5 




04121 


777775 


SBKWK 


777775 


24122 


000003 


3FWDK2 


3 




04123 


777773 


SBKWK2 


777773 






/LAST 


TAPE ( 


DF TC02 BASIC EXERCISER 






/TYPE 


TEXT 1 


ROUTINE 






/MASSAGE PACKED 6 SiT COoES 






/ASCII 


-240 


STORED AFTER JMS 






/777777 IS ( 


;ar ret line feed 






/77 CHAR IS 


EOM 


04124 


604124 


. TYPTEX 


JMP 


1 


04125 


224124 




LAC< 


» typtex 


04126 


444124 




ISZ 


typtex 


04127 


044206 




DAC 


typsav 


04130 


740001 




CMA 




04131 


740200 




SZA 




04132 


604135 




JMP 


.♦3 


04133 


104276 




JMS 


TYCRLF 


04134 


604129 




JMP 


TYPTEX*l 


04135 


740001 




CMA 




04136 


742020 




RTR 




04137 


742020 




RTR 




04140 


742020 




RTR 




04^41 


044207 




DAC 


TYPSAV*l 


04142 


742020 




RTR 




04143 


742020 




RTR 




04144 


742020 




RTR 




04145 


104163 




JMS 


TYPCHR 


04146 


204207 




LAC 


TYPSAV*i 


04147 


104163 




JMS 


TYPCHR 


04150 


204206 




LAC 


TYPSAV 


04151 


104163 




JMS 


TYPCHR 


041S2 


604125 




JMP 


TYPTEX*! 






/STOP ON ERROR IF DELETE SWS NOT SET 


04153 


604153 


errhlt 


JMP 


1 


04154 


750004 




LAS 




04155 


504666 




AND 


(600000 


04156 


740200 




SiA 




04157 


624153 




JMP« 


' ERRHLT 


04160 


204153 




LAC 


ERRHLT 


04161 


740040 




HLT 




04162 


624153 




JMP« 


' ERRHLT 


04163 


604163 


typchR 


JMP 


• 


04164 


504667 




AND 


(77 


04165 


544667 




SAO 


(77 


04166 


624124 




JMP. 


- TYPTEX 


04167 


344670 




TAt) 


(240 



OAGE 62 



TC02SX 



04173 
?!4171 



104172 
624163 



TC0-2B1 



J^S TYPCHA 
jMP» TVPCHR 
.EJECT 
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TC02BX 


TC02B1 




04172 


60<172 


TYPCHA 


JMP . 


04173 


244205 




DAC SAVCHA 


04174 


75?0e4 




UAS 


04175 


741100 




SPA 


04176 


624172 




JMP» TYPCHA 


04177 


204205 




LAC SAVCHA 


04200 


700406 




TLS 


04201 


700401 




TSF 


04202 


604221 




JMP .«l 


04203 


700402 




Tcr 


04204 


624172 




JMP» TYPCHA 


04205 


700000 


SAVCHA 





04206 


000000 


TYPSAV 





04207 


000000 







04210 


000000 







04211 


000000 







04212 


000000 




a 






/TYPE CONTENTS OF THE 






/AC IN 


OCTAL 


04213 


604213 


TYPCON 


JHP . 


04214 


104244 




JMS OECONT 


04215 


104265 




JMS TYPOCT 


04216 


204212 




LAC TYPSAV*^ 


04217 


104265 




JMS TYPOCT 


04220 


204211 




LAC TYPSAV*3 


04221 


104265 




JMS TYPOCT 


04222 


204210 




LAC TYPSAV*2 


04223 


104265 




JMS TYPOCT 


04224 


204207 




LAC TYPSAV*! 


04229 


104265 




JMS TYPOCT 


04226 


204206 




LAC TYPSAV 


04227 


104265 




JMS TYPOCT 


04230 


104272 




JMS SPACE2 


04231 


624213 




JMP» TYPCON 






/TYPE OUT LOWEST 3 CHAR 






/IN OCTAL 


04232 


604232 


TYPC03 


JMP , 


04233 


104244 




JMS OECONT 


04234 


204210 




LAC TYPSAV*Z 


04235 


104265 




JMS TYPOCT 


04236 


204207 




LAC TYPSAV*! 


04237 


104265 




JMS TYPOCT 


04240 


204206 




LAC TYPSAV 


04241 


104265 




JMS TYPOCT 


04242 


104272 




JMS SPACE2 


04243 


624232 




JMP# TYPC03 
•EJECT 
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TC02BX 



TC02B1 



24244 


«e'4244 


P4245 


044206 


04245 


742020 


r.4247 


740020 


0425^ 


0442^7 


04251 


742020 


04252 


740020 


4253 


044210 


04254 


742020 


04255 


740023 


04256 


044211 


04257 


742020 


04260 


740020 


04261 


044212 


04262 


742020 


04263 


740020 


04264 


624244 


04265 


604265 


04266 


504614 


04267 


344641 


04270 


104172 


04271 


624265 


04272 


604272 


04273 


104124 


04274 


000077 


04275 


624272 


04276 


604276 


04277 


204671 


04300 


104172 


04301 


204672 


04302 


104172 


04303 


624276 



04304 


604304 


04305 


104431 


04306 


104124 


04307 


555766 


04310 


450064 


04311 


416045 


04312 


770000 


04313 


104501 


04314 


104447 


04315 


624334 



DECO^T 


JMP , 

OAC TYPSAV 

RTR 

RAR 

OAC TYPSAV*! 

RTR 

RAR 

DAC TyPSAV*2 

RTR 

RAR 

DAC TYPSAV*"* 

RTR 

RAR 

OAC TYPSAV*4 

RTR 

RAR 

JMP» OECONT 




TYPOCT 


JMP , 
AND (7 
TAD (260 

JMS TYPCHA 
JMP» TYPOCT 




SPACE2 


JMP , 

JMS TYPTEX 

77 

JMP« SPACE2 




TYCRLF 


JMP . 
LAC (215 
JMS TYPCHA 
LAC (212 
JMS TYPCHA 
JMP« TYCRLF 




/TYPE ( 


JUT HEADERS 




/DRIVE 


X 




/OPER [ 


JIR MODE 




/TYPE ( 


JUT MOVE TAPE 




TYMOVE 


JMP . 

JMS TYPORV 

JMS TYPTEX 






555766 


/MOV 




450064 


/E T 




416045 


/APE 




770000 


/COM 




JMS TYPOIR 






JMS TYSTAB 






JMP» TYMOVE 






•EJECT 





E 65 


TC02BX 


TC02B1 
/TVPE 


OUT SEARCH 




04316 


604316 


TYSRCH 


1 JMP . 




04317 


104431 




JMS TVPDRV 




043251 


104124 




JMS TYPTEX 




04321 


634541 




634541 


/SEA 


04322 


624350 




624350 


/RCH 


04323 


770000 




770000 


/EOM 


04324 


104501 




JMS TYPOH 




04325 


200634 




LAC RECORD 




04326 


104467 




JMS TYP3LK 




04327 


624316 




JMP. TYSRCH 








/TYPE 


OUT CONTENTS OF 


WORD COUNT REG 


04330 


60433!^ 


TYPWC 


JMP , 




04331 


104276 




JMS TYCRLF" 




04332 


200030 




LAC WCLOC 




04333 


104213 




JMS TYPCON 




04334 


104124 




JMS TYPTEX 




04335 


671643 




671643 


/W,C 


04336 


167700 




167700 


/,EOM 


04337 


624330 


/TYPE 


JMP* TYPWC 
OUT READ DATA 




04340 


604340 


TYROAT 


JMP , 




04341 


104431 




JMS TYPORV 




04342 


104124 




JMS TYPTEX 




04S43 


624541 




624541 


/REA 


04344 


440044 




440044 


/O D 


04345 


416441 




416441 


/ATA 


04346 


770000 




770000 


/EOM 


04347 


104501 




JMS TYPOIR 




04550 


200634 




LAC RECORD 




04351 


104467 




JMS TYPBLK 




04352 


624340 


/TYPE 


JMP« TYRDAT 
OUT READ ALL 




04353 


604353 


TYRALL 


JMP . 




04354 


104431 




JMS TYPORV 




04355 


104124 




JMS TYPTEX 




04356 


624541 




624541 


/RCA 


04357 


440041 




440041 


/D A 


04360 


545477 




545477 


/LL COM 


04361 


104501^ 




JMS TYPQIR 




04362 


624353 




JMP» TYRALL 
.EJECT 
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TC023X 


TC02B1 


OUT WRITE DATA 




04363 


604363 


TYWOAT 


JMP , 




0436 4 


104431 




JHS TYPDRV 




04365 


104124 




JMS TYPTEX 




04366 


676251 




676251 


/WRI 


04367 


644500 




644500 


/TE 


04370 


444164 




444164 


/DAT 


4ST1 


417700 




417700 


/AEOM 


04372 


104501 




JMS typoir 




04373 


20-0634 




LAC RECORD 




4374 


104467 




JMS TYPBLK 




043f75 


1^4330 




JMS TYPWC 




04376 


104447 




JMS TYSTA8 




0437r 


624363 


/TYPE 


JMP» TYWDAT 
OUT WRITE ALL 




044#0 


604400 


TYHALL 


JMP . 




04*ai 


104431 




J'MS TVPO'RV 




04 #02 


104124 




JMS TYPTEX 




044t3 


676251 




676251 


/WRI 


044-04 


644500 




644500 


/TE 


04405 


415454 




415454 


/ALL 


04406 


770000 




770000 


/EOM 


04407 


104501 




JMS TYPDIR 




04410 


624400 


/TYPE 


JMP* TYWALL 
OUT FWO 




04411 


604411 


TYFWD 


JMP . 




04412 


104124 




JMS TYPTEX 




04413 


004667 




4667 


/FW 


04414 


447700 




447700 


/D EOM 


04415 


624411 


/TYPE 


JMP« TYFWD 
OUT 8KWD 




04416 


604416 


TYBKW 


JMP . 




04417 


104124 




JMS TYPTEX 




04420 


004253 




4253 


/BK 


04421 


674477 




674477 


/WO EOM 


04422 


624416 


/STOP 
/LEAVE 


JMP* TYBKW 
TAPE ON ERROR 
ALL ri,AGS SET 




04423 


604423 


STPTAP 


JMP , 




04424 


707552 




OTRA*10 




04425 


504600 




AND (GOBIT 




04426 


344625 




TAD (INHCUR 




04427 


707544 




DTXA 




04430 


624423 




JMP» STPTAP 
.EJECT 
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TC02BX 


TC02B1 
/TYPE 1 


DUT DRIVE NUMBER 








/riRST 


LINE OF EVERY TYRCOUT 


S4431 


604431 


TYPDRV 


JMP . 




04432 


104124 




JMS TYPTEX 




S4433 


777777 




777777 




04434 


777777 




777777 




04435 


446251 




446251 


/DRI 


04436 


664500 




664500 


/VE 


?4437 


770000 




770000 


/EOM 


0444? 


200641 




LAC CDRIVE 




04441 


741200 




SNA 




04442 


344571 




TAD (10 




04443 


344641 




TAD (260 




04444 


104172 




JMS TYPCHA 




04445 


104276 




JMS TYCrlF 




04446 


624431 




JMP» TYPORV 








/TYPEOUT OECTAPE STAT B 








/FOLLOWED BY lORS CONTENTS 


34447 


'604447 


tystab 


JMP , 




044.50 


104276 




JMS TYCRLF 




04451 


707572 




DTRB*10 




04452 


104213 




JMS TYPCON 




04453 


104124 




JMS TYPTEX 




04454 


636441 




636441 


/STA 


04455 


640042 




640042 


/T B 


044S6 


000077 




000077 


/EOM 


04457 


700314 




lORS 




04460 


104213 




JMS TYPCON 




04461 


104124 




JMS TYPTEX 




04462 


515762 




515762 


/lOR 


«4463 


637700 




6377J2I0 


/S EOM 


04464 


104276 




JMS TYCRLF 




04465 


104276 




JMS TYCRLF 




04466 


624447 




JMP» TYSTAB 








/TYPE ( 


JUT THE AC CONTENTS 






/AND THE WORD BLOCK 




04467 


604467 


typblk 


JMP . 




04470 


044500 




OAC SAVBLK 




04471 


104276 




JMS TYCRLF 




04472 


204500 




LAC SAVBLK 




04473 


104213 




JMS TYPCON 




04474 


104124 




JMS TYPTEX 




04475 


425457 




425457 


/BLO 


04476 


439377 




435377 


/CK 


04477 


624467 




JMP« TYPBLK 




04500 


000000 


SAVBLK 



•EJECT 
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TC02BX 


TC02B1 










/TYPE 


OUT DIRECTION AND 


MODE 


04501 


604501 


TYPDIR 


JMP . 




04502 


707552 




DTRA+10 




04503 


504601 




AND (DIRBIT 




04504 


740200 




S2A 




04505 


604510 




JMP .♦3 




04506 


104411 




JMS TYFWD 




04507 


741000 




SKP 




04510 


104416 




JMS TYBKW 




04511 


707552 




DTRA*10 




04512 


504650 




AND (MOOEBT 




04513 


741200 




SNA 




0#5l4 


624501 




JMP« TYPDIR 




.04515 


1^4124 




JMS TYPTEX 




#4516 


0«4300 




4300 


/C 


04-S17 


955744 




555744 


/MOO 


0-4f20 


457700 




457700 


/E77 


04521 


«24'501 




J^«P» TVPOIR 








/TYPE 


OUT WRTTE OIRICTION 


04522 


604522 


WRIDIR 


JMP , 




'0<415-23 


1*41 2 4 




JMS TYPTEX 




0=49'24 


006762 




6762 


/ WR 


04525 


516464 


. ; "-' 


516464 


/ITT 


04526 


455677 




455677 


/EN EOM 


04527 


202261 




LAC WRPASO 




04530 


740200 




S2A 




04531 


604534 




JMP .♦S 




04532 


104411 




JMS TYFWO 




04533 


624522 




JMP« WRIDIR 




04534 


104416 




JM^ TYBKW 




04535 


624522 




JMP» WRIOIR 








/-TYPE 


CUT AC CONTENTS AND THE 






/WORD 


DATA AFTER CR if 




04536 


604536 


TYDATA 


JMP , 




04SS7 


044500 




OAC SAVBLK 




04940 


104276 




JMS TYCRLF 




04-541 


204500 




LAC SAVBLK 




04542 


ia42l3 




JMS TYPCON 




04543 


104124 




JMS TYPTEX 




04544 


444164 




444164 


/DAT 


0-45-45 


410077 




410077 


/A EOM 


04546 


624536 


/TYPE 


JMP» TYDATA 
OUT (AC) AND AORS 




04547 


604547 


TYPADR 


JMP , 




04550 


104213 




JMS TYPCON 




04551 


104124 




JMS TYPTEX 




04552 


414462 




414462 


/ADR 


04553 


637700 




637700 


/S EOM 


04554 


624547 

000000 




JWP« TYPADR 
.END 




04555 


776000 


•L 






04556 


, 000017 


•L 






04557 


777767 


•L 






04560 


620245 


♦L 






04561 


001102 


•L 
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04562 


777777 


•L 


?4563 


707552 


»L 


34564 


200040 


•L 


24565 


620002 


»L 


04566 


400003 


•L 


04567 


001000 


*L 


04570 


000343 


•U 


04571 


000010 


•L 


04972 


060000 


•U 


04573 


500000 


•L 


04574 


000200 


•L 


04575 


000002 


•L 


04576 


061400 


•I 


04577 


021400 


•L 


04600 


020000 


•L 


04601 


040000 


•L 


04602 


100000 


•L 


04603 


006377 


•L 


04604 


007777 


•L 


04609 


000001 


•L 


04606 


021000 


•L 


04607 


070000 


•L 


04610 


006400 


•L 


04611 


017777 


•L 


04612 


022000 


•t 


04613 


006777 


•L 


04614 


000007 


•L 


04619 


009000 


•L 


04616 


001117 


•I 


04617 


292529 


•L 


04620 


929292 


•U 


04621 


070707 


•L 


04622 


707070 


•L 


04623 


007000 


•L 


04624 


001327 


•L 


04625 


000300 


•L 


04626 


000100 


•L 


04627 


601365 


•L 


04630 


00003T 


•L 


04631 


101425 


•L 


04632 


101523 


•L 


04633 


101411 


•U 


04634 


101526 


•I 


04635 


001410 


•I 


04636 


■001406 


•L 


04637 


003000 


•U 


04640 


007377 


•U 


04641 


000260 


•L 


04642 


000030 


•L 


04643 


000020 


•L 


04644 


000400 


»L 


04645 


777774 


•t 


04646 


017000 


•I 


04647 


003157 


• L 


04650 


010000 


*L 



TC0281 



PAGE 70 


TC02BX 


TC0 


04651 


?10100 


•L 


04652 


zznm 


•I 


04653 


77!^0?? 


«L 


04654 


imzz 


•L 


04655 


42210? 


•t 


04656 


?003?6 


•L 


04657 


?00303 


•L 


04660 


Z<i%lll 


•L 


04661 


2Zfj<iZ-^ 


•L 


04662 


777776 


•U 


04663 


206377 


»L 


04664 


?|011?C 


•L 


0466-5 


272056 


•L 


046:66 


6dmm 


•U 


04^67 


020077 


•L 


04670 


00024f 


•L 


04671 


000215 


•L 


04672 


000212 


•L 




SIHE 


=04673 



NO ERROR LINES 



PAGE 


71 


APISET 


01345 


RKWOEH 


01257 


SLENTH 


777403 


BLKFNO 


006377 


8LKINC 


02262 


BLKTIM 


77500? 


BUFFER 


00640? 


BUfFR2 


007000 


eUFFRS 


007400 


CALOC 


000031 


CBIT 


00642 


CORIVE 


00641 


CH0ERR 


01425 


CHIERR 


01427 


CH10ER 


01445 


CHllER 


01447 


CH12ER 


01451 


CH13ER 


01453 


CH14ER 


01455 


CH15ER 


01457 


CH16ER 


01461 


CH17ER 


01463 


CH2ERR 


01431 


CH20ER 


01465 


CH21ER 


01467 


CH22ER 


01471 


CH23ER 


01473 


CH24ER 


01475 


CH25ER 


01477 


CH26ER 


01501 


CH27ER 


01503 


CH3ERR 


01433 


CH30ER 


01505 


CH31ER 


01507 


CH32ER 


01511 


CH33ER 


01513 


CH34ER 


01515 


CH35ER 


01517 


CH36ER 


01521 


CH37ER 


01523 


CH4ERR 


01435 


CH5ERR 


01437 


CH6ERR 


01441 


CH7ERR 


01443 


clfapi 


01526 


CLFCTR 


01542 


CLOF 


700004 


CLON 


700044 


CLSF 


700001 


codata 


02142 


COERRO 


02221 


coflag 


02265 


COSAME 


02204 


DECONT 


04244 


OIRBIT 1 


040000 



TC02BX 



TC02B1 
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TC02BX 



TC02B1 



DIRECT 


00341 


niRFtG 


550633 


DIST9L 


20353 


nOTijPN 


Z0446 


DTAP; 


01411 


DTCA 


707541 


DTOr 


707601 


oTEr 


707561 


DTFBIT 


000100 


DTLA 


707545 


DTRA 


707542 


OTRB 


707562 


DTXA 


707544 


EEM 


707702 


ENA3LI 


000400 


ENDBLK 


00265 


ERRNLT 


04153 


EEBIT 


lfiF0000 


eeblok 


00264 


FEZTST 


04044 


FE2WEI 


04062 


riNOAL 


01165 


FINDEi 


01212 


FRSFLG 


00636 


GEDATA 


02263 


GEMPAT 


01150 


GOBIT 


020000 


GOCLRD 


02015 


GOTST 


00244 


GSTPAT 


01077 


INDATA 


02264 


INHCUR 


000300 


KRB 


700312 


KSF 


700301 


LEM 


707704 


LSBLOK 


00342 


LSTBLK 


00637 


LSTTBL 


00363 


MOOEBT 


010000 


MOVBKW 


060000 


MOVERR 


00405 


MSBITS 


00643 


NOEX 


00632 


NDEXl 


00645 


NDTTBL, 


000256 


NEWDRV 


00303 


PARBIT 


020000 


PARCKE 


03022 


PAREEl 


03132 


PARERE 


03121;? 


PARHDR 


03144 


PARLPl 


02274 


PARTBL 


03157 


PARTST 


02266 


PARTS2 


02345 



PACE ' 


73 


PARTS3 


5J2446 


PARTS4 


02523 


PAfTSS 


02606 


PARTS6 


02660 


PART4A 


^2551 


PART6A 


02714 


PARWLP 


32354 


PARWL2 


02376 


PAR3MD 


32511 


PAR4M0 


02574 


PAR6N0 


!!2745 


PATNUM 


?1160 


PATTBL 


01117 


PAT0 


("1127 


PATl 


01131 


PAT2 


01133 


PAT3 


01135 


PAT4 


01140 


PAT5 


01142 


PAT6 


01144 


PAT7 


01146 


PCF 


700202 


POSITN 


00340 


POSTBI. 


00343 


PSA 


700204 


PSB 


700244 


PSF 


700201 


PTTEZ 


00702 


PTTRNA 


00646 


RAERR0 


03013 


RCF 


700102 


ROALL 


003000 


RDATAF 


022000 


ROERCK 


02132 


ROEELP 


00764 


RDE2TS 


02105 


RDFIRS 


01636 


RDLEND 


01672 


ROLOOP 


01624 


ROPERR 


03072 


RDPERl 


03106 


RDSERR 


02116 


RDSW 


02077 


RDSWS 


02046 


RDTERM 


01714 


RECORD 


00634 


REWDRV 


00373 


RPASFL 


02257 


RRB 


700112 


RSA 


700104 


RSB 


700144 


RSEFLG 


02262 


RSF 


700101 


RSFDRV 


00266 


SAVBLK 


04500 



TC028X 



TC02B1 
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TC02BX 



TC02B1 



SAVCNA 


04205 


SBCOMP 


34004 


S8ERR0 


•34012 


SBKWK 


34121 


SBKWK2 


?«4123 


SBTROL 


03767 


SEARCH 


00416 


SETUNT 


00322 


SFCOMP 


03745 


SFERRO 


03753 


SFTROL 


03721 


SFWDK 


04122 


SFWDK2 


04122 


SF2ERR 


03637 


SF2ERT 


03617 


SKiOTFS 


00544 


SPACE2 


04272 


SRBAEK 


mi2Z6 


SRBERR 


.01247 


SRCHBW 


#61000 


SRCH&Z 


00464 


SRCHFvW 


021000 


SRCHTS 


01162 


SRCH2R 


03210 


SRERRO 


00563 


SRERRl 


00560 


SREELP 


00713 


SREZTA 


00756 


55RFERR 


01202 


SR2CM 


05370 


SR8C0t1 


03332 


SR2EN0 


03313 


SR2E2T 


03377 


SR2FRS 


03277 


SR2REQ 


03255 


SR2WLP 


03240 


STBKWl 


03572 


STBKW2 


03646 


STE2ER 


03537 


STFWDl 


03544 


STFWD2 


03605 


STPTAP 


04423 


STRBKW 


03703 


STREZF 


03471 


STRFWD 


03665 


STRSTP 


03453 


SWTBLK 


00506 


SWTTES 


00520 


SWTXIT 


00537 


TABKWD 


03711 


TAFWD 


03673 


TAPOMT 


00635 


TCF 


7 00402 


TC02TS 


00200 


TIMCTR 


00644 



PAGE : 


'5 


TLS 


730406 


TSCT!?S 


32212 


TSP 


7?04ei 


TSTTBL 


00245 


TYBKW 


?4416 


TYCRur 


34276 


TYDATA 


04536 


TYFWD 


P4411 


TYMOVE 


043B4 


TYOTHR 


03425 


TYPAD 


04022 


TYPADR 


?4547 


TYPBLK 


04467 


TYPCHA 


J!4172 


TYPCHR 


04163 


TYPCON 


04213 


TYPC03 


B4232 


TYPDIR 


04501 


TYPORV 


04431 


TYPOCT 


04265 


TYPSAV 


04206 


TYPTEX 


04124 


TYPWC 


04330 


TYRALL 


04353 


TYRDAT 


04340 


TYSRCH 


04316 


TYSTAB 


04447 


TYWALt. 


04400 


TYWOAT 


04363 


UNFUNC 


00631 


UAERRT 


02766 


WAERR0 


02764 


WAERR2 


02777 


WAITAP 


01365 


l^CLOC 


000030 


WDCRRe 


03001 


WDERRl 


03005 


WDCZLP 


01024 


WOEZTA 


01067 


WRALL 


005000 


WRARO 


01543 


WRCZTS 


02027 


WRFIRS 


01563 


WRIOIR 


04522 


WRPASO 


02261 


WRSERR 


02040 


WRSWS 


01752 


WRTERM 


02003 


WTAPI 


01406 


WTFLGS 


01272 


WTHALF 


04112 


WTPION 


01302 


WTTOK 


01327 


WTTQUT 


01313 


XTOFLO 


01161 
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WCLOC 


000030 


CALOC 


000031 


niFBIT 


eiti0i02 


TC02TS 


0020? 


GOTST 


£50244 


TSTTBL 


00245 


NOTTBL 


00025* 


EZBLOK 


00264 


ENOBLK 


PI0265 


RSfDRV 


00266 


INHCLR 


000300 


NEWORV 


00303 


SETUNT 


00322 


POSITN 


00340 


DIRECT 


00341 


LSBUOK 


00342 


POSTBL 


00343 


OIRTBL 


00353 


LSTTBL 


00363 


REWORV 


00373 


ENABLI 


000400 


MOVERR 


00403 


SEARCH 


00416 


OOTURN 


00446 


SRCHCZ 


00464 


SWTBLK 


00906 


SWTTES 


00520 


SWTXIT 


00537 


SNOTFS 


00544 


SRERRl 


00960 


SRERRO 


00963 


UNFUNC 


00631 


NOEX 


00632 


DIRFLC 


00633 


RECORD 


00634 


TAPONIT 


00635 


FRSFLC 


00636 


LSTBLK 


00637 


CDRIVE 


00641 


CBIT 


00642 


MSBITS 


00643 


TIMCTR 


00644 


NOEXl 


00645 


PTTRNA 


00646 


PTTEE 


00702 


SREZLP 


00713 


SREETA 


00736 


ROEZLP 


00764 


WOEZuP 


01024 


WDE2TA 


01067 


GSTPAT 


01077 


PATTBL 


01117 


PAT0 


01127 


PATl 


01131 


PAT2 


01133 
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PaT3 


01135 


PAT4 


2'114'' 


PAT5 


?1142 


0AT6 


?1144 


PAT7 


31146 


GENPAT 


3115^" 


PATNUM 


31160 


XTDriD 


01161 


SRCHTS 


21162 


riNDAL 


31165 


SRfERR 


01202 


riKJDEE 


?1212 


SRBACK 


31226 


SRBERR 


01247 


BKWOEi 


31257 


WTFUGS 


R1272 


WTPION 


01302 


WTTOUT 


01313 


WTTOK 


31327 


APISET 


(?H345 


WAITAP 


01.365 


WTAPI 


014B6 


DTAPI 


01411 


CH0ERR 


01425 


CHIERR 


01427 


CH2ERR 


01431 


CH3ERR 


01433 


CH4ERR 


01435 


CH5ERR 


01437 


CH6ERR 


01441 


CH7ERR 


01443 


CH10ER 


01445 


CHllER 


01447 


CHIZER 


01451 


CH13ER 


01453 


CH14ER 


01455 


CH15ER 


01457 


CH16ER 


01461 


CH17ER 


01463 


CH20ER 


01465 


CHZiER 


01467 


CH22ER 


01471 


CH23ER 


01473 


CH24ER 


01475 


CH25ER 


01477 


CH26ER 


01501 


CH27ER 


01503 


CH30ER 


01505 


CH31ER 


01507 


CH32ER 


01511 


CH33ER 


01513 


CH34ER 


01515 


CH35ER 


31517 


CH36ER 


01521 


CH37ER 


01523 
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Ci.f API 


01526 


r.^CTR 


01542 


«=?ARO 


01543 


.^FIRS 


01563 


"DLOOP 


31624 


eDfpS 


P'1636 


RDLENO 


01672 


OOTERM 


01714 


nRSWS 


01752 


-RTERM 


02003 


GOCLRO 


02015 


WRE2TS 


02027 


wSSERR 


02040 


ROSWS 


02046 


ROSW 


02077 


poezTs 


02105 


RQSERR 


02116 


ROERCK 


02132 


CODATA 


02142 


COSAME 


02204 


TSCTRS 


02212 


COERRO 


02221 


RPASn 


02257 


BI.KINC 


02260 


WRPASD 


02261 


RSCFLG 


02262 


GEDATA 


02263 


INDATA 


02264 


COfLAG 


02265 


PARTST 


02266 


PARt,Pl 


02274 


PARTS2 


02345 


PAPWLP 


02354 


PARWL2 


02376 


PARTS3 


02446 


PAR3ND 


02511 


PARTS4 


02523 


PART4A 


02551 


PAR4ND 


02574 


PARTS5 


02606 


PARTS6 


02660 


PART6A 


02714 


PAR6N0 


02745 


wae:rr0 


02764 


WAERRT 


02766 


WAERRZ 


02777 


RDALL 


003000 


wde:rr0 


03001 


WOERRl 


03005 


RAERR0 


03013 


PARCKE 


03022 


ROPERR 


03072 


RDPERl 


03106 


PARERE 


03120 


PAREEl 


03132 
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parhor 


03144 


PARTBt 


03157 


SRCH2R 


0321? 


SR2WLP 


?324i? 


SRSREO 


33255 


SR2FRS 


Z3277 


SR2EMD 


■03313 


SR2C0M 


03332 


SR2CM 


03370 


SR2E2T 


03377 


TYOTHR 


03425 


STRSTP 


03453 


STREFT 


0.34 71 


STCEER 


■03537 


STPWDi 


f3544 


STBKI+i 


S35T2 


ST^WQ5 


(05*05 


SP2ERT 


"03*17 


SFSE^R 


133637 


STBKW2 


ft364« 


STRFWO 


0366-5 


TAfWO 


03673 


STRBKW 


03703 


TABKWD 


03711 


SFTROL 


03721 


srcoMP 


03745 


SFERRO 


-05753 


SBTROi 


03762 


SBCOMP 


04004 


SBCRfiO 


04012 


TYPAD 


04Ei22 


FEZTST 


04044 


FElME? 


04062 


WTHALF 


04112 


SFWDK 


04120 


SBKWK 


04,121 


SFWDK2 


04122 


SBKWK2 


04123 


TYPTEX 


04124 


CRRHLT 


04153 


TYPCHR 


04163 


TYPCHA 


04172 


SAVCHA 


04205 


TYPSAV 


04206 


TYPCON 


04213 


TYPC03 


04232 


DECONT 


04244 


TYPOCT 


04265 


SPACES 


04272 


TYCRLF 


04276 


TYMOVE 


04304 


TYSRCH 


04316 


TYPWC 


04330 


TYRDAT 


04340 


TYRALL 


04353 
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TYWOAT 04363 
TYWALL 3440?! 
TYfWtl 04411 
TYBKV* 044lf 
STPTAP f74423 
TYPQRV !?443i 
TYSTAB 04447 
TYPBLK Ji4467 
SAVBLK 3450? 
TYPOIR 74501 
WRIDIR ?4522 
TYDATA 04536 
TYPADR '?4547 
WRALL B?5000 
BLKFND 006377 
BUTTER 00640? 
aUPFR2 00700^ 
BUFFRS 0?7400 
MOOEBT 010000 
GOBIT 020000 
PARBIT 020000 
SRCHFW 021000 
RDATAF 022000 
DIRBir 040000 
MOVBKW'060000 
SRCHBW 061000 
EZBir 100000 



CUSF 


700001 


CLOF 


700004 


CLON 


700044 


Rsr 


700101 


RCF 


700102 


RSA 


700104 


RRB 


700112 


RSB 


700144 


PSF 


700201 


PCF 


700202 


PSA 


700204 


PSB 


700244 


KSr 


700301 


KRB 


700312 


TSF 


700401 


TCP 


700402 


TLS 


700406 


DTCA 


707541 


DTRA 


707542 


DTXA 


707544 


DTL.A 


707545 


DTEF 


707561 


OTRB 


707562 


DTDF 


707601 


EEM 


737702 


LEM 


707704 


BL*<TIM 


775000 


blEnth 


77740i^ 
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